виталийВячеславович
?>

Решить следующую (оформить с пояснениями : определите при каком наименьшем значении b в результате выполнения следующего алгоритма будет напечатано число 100 var a, b, t, k: integer; function f(x: integer): integer; begin if x mod 2=0 then f: =1; else f: =0; end; begin a: =100; readln(b); k: =0; for t: =a to b do begin k: =k=f(t); end; write(k); end.

Информатика

Ответы

kmb1960679
Наверное не k:=k=F(t); а k:=k+F(t);
тогда ответ: 298


Процедура F(x) дает 1, если х четное или 0, если х нечетное.
Далее программа подсчитывает сумму F(x)  (т.е. проще говоря количество четных чисел) от 100 до b.
Т.к. 100 само является четным числом, остается еще 99 четных чисел. 
Т.к. четные числа идут через один, то потребуется в два раза больше чисел:
99*2=198
100+198=298
т.е. 298 является тем числом, по достижении которого сумма F(x) станет равна 100.
sve34166163
1)
var k1,k2,k3,k4:integer;
f,f1,f2,f3,f4:real;
begin
write('F = ');
readln(f);
writeln('k1, k2, k3, k4:');
readln(k1,k2,k3,k4);
f1:=f/(k1+k2+k3+k4)*k1;
f2:=f/(k1+k2+k3+k4)*k2;
f3:=f/(k1+k2+k3+k4)*k3;
f4:=f/(k1+k2+k3+k4)*k4;
writeln('f1 = ',f1:5:2);
writeln('f2 = ',f2:5:2);
writeln('f3 = ',f3:5:2);
writeln('f4 = ',f4:5:2);
end.

Пример:
F = 5
k1, k2, k3, k4:
11 14 13 12
f1 =  1.10
f2 =  1.40
f3 =  1.30
f4 =  1.20

2)
var a,a4,a6:real;
begin
write('a = ');
readln(a);
a4:=a*a; //a^2
a4:=a4*a4; //a^4
writeln(a,'^4 = ',a4);
a6:=a*a; //a^2
a6:=a6*a6*a6; //a^6
writeln(a,'^6 = ',a6);
end.

Пример:
a = 2
2^4 = 16
2^6 = 64
Voshchula David393
1)
var k1,k2,k3,k4:integer;
f,f1,f2,f3,f4:real;
begin
write('F = ');
readln(f);
writeln('k1, k2, k3, k4:');
readln(k1,k2,k3,k4);
f1:=f/(k1+k2+k3+k4)*k1;
f2:=f/(k1+k2+k3+k4)*k2;
f3:=f/(k1+k2+k3+k4)*k3;
f4:=f/(k1+k2+k3+k4)*k4;
writeln('f1 = ',f1:5:2);
writeln('f2 = ',f2:5:2);
writeln('f3 = ',f3:5:2);
writeln('f4 = ',f4:5:2);
end.

Пример:
F = 5
k1, k2, k3, k4:
11 14 13 12
f1 =  1.10
f2 =  1.40
f3 =  1.30
f4 =  1.20

2)
var a,a4,a6:real;
begin
write('a = ');
readln(a);
a4:=a*a; //a^2
a4:=a4*a4; //a^4
writeln(a,'^4 = ',a4);
a6:=a*a; //a^2
a6:=a6*a6*a6; //a^6
writeln(a,'^6 = ',a6);
end.

Пример:
a = 2
2^4 = 16
2^6 = 64

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить следующую (оформить с пояснениями : определите при каком наименьшем значении b в результате выполнения следующего алгоритма будет напечатано число 100 var a, b, t, k: integer; function f(x: integer): integer; begin if x mod 2=0 then f: =1; else f: =0; end; begin a: =100; readln(b); k: =0; for t: =a to b do begin k: =k=f(t); end; write(k); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

departed744
mariya
Abespal
delonghisochi
Nurislamovna1543
varvv15
Serdechnaya636
MNA888
evrotrastop64
Борисовна_Дмитриевич1003
Вакуленко
shuramuji
astahova
ievlevasnezhana7
office3