Ну человек обрабатывает информацию которую ему выдаёт компьютер и наоборот
Получится 3e3f5660 ,а вообще перемножаем и записываем если больше шестнадцати в следующий разряд
Сперва разберёмся, какие значения может принимать каждая переменная:
i, k: integer - целые числа
x, y: real - дробные и целые числа
n: char - один символ
z: Vremia_God - Win, Spr, Sum или Otm.
Опираясь на это, получаем следующий ответ:
1-f,d
2-a,e
3-a,e
4-a,c,e
5-b
6-a,c,e
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
Там содержится разная познавательная информация или ответы на вопросы.