var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
А) 17 + 83 = 100
36 + 64 = 100
77 + 33 = 100
б) 21 + 7 = 28
36 - 12 = 28
99 - 71 = 28
Var a,b:integer;beginreadln(a,b);writeln(a div b);end.
12 кб = 12 * 1024 = 12288 байт
8000 бит = 8000:8 = 1000 байт
8192 байта = 8192:1024 = 8 килобайт
5 мб = 5120 киобайт