Предмет: Информатика,
автор: ivanovskiyr
Составить программу нахождения минимального элемента кратного 7 среди вводимых с клавиатуры целых трехзначных чисел. Числа вводятся до тех пор, пока не введено число 0
Ответы
Автор ответа:
1
Ответ:
program z1;
var s, a:Integer;
begin
a:=999;
readln(s);
while s<> 0 do begin
if (s mod 7 =0) and (s<a) then a:=s;
readln(s);
end;
writeln(a);
end .
ivanovskiyr:
Спасибо большое)
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Imam18
Предмет: Қазақ тiлi,
автор: ilovesubaru
Предмет: История,
автор: Аноним
Предмет: История,
автор: JAGERNAUT05