Информатика, опубликовано 2018-08-22 20:39:15 by Гость
С клавиатуры вводится произвольное количество чисел N. Определите количество (К) и сумму (S) положительных чисел, оканчивающихся на 6.Напишите скрипт пожалуйста
Ответ оставил Гость
Var n,k,s:integer;
begin
Writeln (вводи числа, по окончанию введи 9999);
while nbegin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln (кол-во=,k);
writeln (сумма=,s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на