Написать программу, которая подсчитывает количество чисел, оканчивающихся на 6, ...

July 2022 1 6 Report

Написать программу, которая подсчитывает количество чисел, оканчивающихся на 6, введенных с клавиатуры. Сигналом окончания ввода является ввод нуля

Answers & Comments

Sekret45 Program n1;
Uses CRT;
Var s,i: integer;
begin
ClrScr;
Writeln('Введите последовательность. Для остановки введите 0 ');
Repeat
readln(i);
If (i mod 6=0)or(i mod 10=0) then s:=s+i;
until i=0;
writeln('Сумма =',s);
readln
end.

0 votes Thanks 0

Answers & Comments

s257cac3f6e6aee7d738b27b952db52e4 64272

elektropoezd metropolitena podezzhaet k platforme stancii dlinoj 140 m i spustya

zapishite ur reakcij s pomoshyu kotoryh mozhno osushestvit sleduyushie prevrasheniya

rasschitajte kakovy massy v grammah odnoj molekuly ozona i dvuh molekul kislorod

pri dlitelnom hranenii na vozduhe 1036 g mednogo poroshka ego massa uvelichilas

opredelite himicheskuyu formulu veshestva pri szhiganii kotorogo v kislorode obrazo

skolko trebuetsya sernogo kolchedana soderzhashego 84 fes2 dlya polucheniya 1000 t

s6526f51d9ac681469d6103f1bc5b0dea 88680

рекомендуемые вопросы

Helpful Links

Helpful Social