Предмет: Информатика,
автор: nikitanapolow
Составьте программу позволяющую проверить умение выполнить сложение двух целых чисел, каждая из которых не больше ста.
p.s. Чуваки, от этого зависит моя четвертная оценка
Ответы
Автор ответа:
0
var
i, k, f, a, b: byte;
begin
for i := 1 to 10 do
begin
a := random(0, 99);
b := random(0, 99);
write(String.Format('{0} + {1} = ', a, b));
readln(k);
f += (a + b = k ? 1 : 0);
end;
writeln(String.Format('{0} правильных из 10', f));
end.
i, k, f, a, b: byte;
begin
for i := 1 to 10 do
begin
a := random(0, 99);
b := random(0, 99);
write(String.Format('{0} + {1} = ', a, b));
readln(k);
f += (a + b = k ? 1 : 0);
end;
writeln(String.Format('{0} правильных из 10', f));
end.
Интересные вопросы
Предмет: Русский язык,
автор: fefdfcefcs
Предмет: Немецкий язык,
автор: scoolpolinapolishchu
Предмет: География,
автор: denismalofeev00
Предмет: История,
автор: gusik99
Предмет: Алгебра,
автор: anastasiabloom