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

Решить следующую (оформить с пояснениями : определите при каком наименьшем значении 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*
Комментарий*

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

alex-kuzora4411
Антонович937
art-03857
ser7286
MikhailovichVitalevich1393
rodin4010
Zashchitin Denis
Кононова-БЕСКРОВНАЯ
punchf
ltdfoliant62
tiv67
vera141187
natanikulina1735
Владимир
rodin4010