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

Наверное не  k: =k=f(t); а  k: =k+f(t); тогда ответ: 298процедура f(x) дает 1, если х четное или 0, если х нечетное.далее программа подсчитывает сумму f(x)   (т.е. проще говоря количество четных чисел) от 100 до b.т.к. 100 само  является четным числом, остается еще 99 четных чисел.  т.к. четные числа идут через один, то потребуется в два раза больше чисел: 99*2=198100+198=298т.е. 298 является тем числом, по достижении которого сумма f(x) станет равна 100.

при использовании компьютерного алфавита 1 символ = 1 байт, значит

20000 символов = 20000 байт

20000 : 1024 = 19,5 кбайт

19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.

 

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол