Илья
4 год назад
Пожалуйста Пожалуйста посчитайте!Напишите программу, которая в последовательности целых чисел определяет число отрицательных трехзначных чисел, кратных 3 и оканчивающихся на 6.программа должна вывести одно число - число отрицательное трехзначных чисел кратных 6 и оканчивающихся на 3.Признаком конца ввода чисел - ввод 0.Пример работы программы:Входные данныеВыходные данные-1861-36361860
ОТВЕТЫ
Grant Mitchell
Oct 24, 2020
Var
A,k:integer;
Begin
k:=0;
Read(A);
While A<>0 do
Begin
Read(A);
if (A<-99)and(A>-1000)and(A mod 3 = 0)and(A mod 10 = -6) then
k:=k+1;
End;
WriteLn(k);
End.
A,k:integer;
Begin
k:=0;
Read(A);
While A<>0 do
Begin
Read(A);
if (A<-99)and(A>-1000)and(A mod 3 = 0)and(A mod 10 = -6) then
k:=k+1;
End;
WriteLn(k);
End.
594
Смежные вопросы:
