Ответ:
Программу?
uses crt;
var fiz,math,inf:integerl
begin
*
readln(fiz,math,inf);
if (fiz = 4) and (math = 4) and (inf = 4) or (fiz = 5) and (math = 5) and (inf = 5) then write('Ученик получит стипендию');
end.
* по желанию, можешь добавить на место звездочки write('Физика, Математика, Информатика сданы на: ');
По формуле N=2^i где i размер памяти одного элемента.
у нагури 16=2^i значит i=4 бита
в русском языке берется 32, значит i=5 бит
значит в русском тексте больше информации
Program z20; Var n, sum, i:integer; a: array [1..1000] of integer;Begin write('Введите кол-во чисел = '); readln(n); for i:=1 to n do begin write('Число [', i, '] = '); readln(a[i]); end; sum:= 0; for i:=1 to n do if (a[i] mod 5 = 0) and (a[i] mod 3 <> 0) then sum:= sum + a[i]; writeln('Сумма чисел = ', sum);End.
Не менее должен содержать 256