Ответ: 1,3
с1 получает целое число от деления.
с2 получает остаток от деления.
Потом просто выводятся через пробел.
<span> </span>М = 1/8 Мб = 1024 · . 1024/8 = 131 072 байта, W = 64/8 = 8 байтов
<span> </span><span> </span> N = M / W = 131 072/8 = 16 384 слова.
A10=1*10^2+4*10+3+5*10^(-1)+1*10^(-2)+1*10^(-3)
A16=1*16^2+10*16+3+5*16^(-1)+12*16^(-2)+1*16^(-3)
Program p;
var i: integer;
quest:array [1..2] of string;
ans:array [1..2] of string;
answ:array [1..2] of string;
begin
quest[1]:='20*2=';
quest[2]:='3*5=';
ans[1]:='40';
ans[2]:='15';
for i:=1 to 2 do begin
writeln ('Вопрос номер ', i);
writeln (quest[i]);
write ('Ваш ответ - ');
readln (answ[i]);
while answ[i]<>ans[i] do
begin
writeln ('Ответ неверный, попробуйте снова');
readln(answ[i]);
end;
writeln ('Ответ верный');
writeln;
end;
writeln ('Congrats');
end.
Пример:
Вопрос номер 1
20*2=
Ваш ответ - 40
Ответ верный
Вопрос номер 2
3*5=
Ваш ответ - 10
Ответ неверный, попробуйте снова
14
Ответ неверный, попробуйте снова
15
Ответ верный
Congrats