Предмет: Информатика,
автор: tkalenko03
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающееся на 2.
clinteastwood2:
язык?
Pascal
програмирование
на данный момент нету компилятора для паскаля
Ответы
Автор ответа:
2
var
n,i,a,k:integer;
s:string;
begin
readln(n);
for i:=1 to n do
begin
read(a);
str(a,s);
if ((s[length(s-1)]='2')and((a mod 3)=0))then k:=k+1;
end;
writeln(k);
end.
n,i,a,k:integer;
s:string;
begin
readln(n);
for i:=1 to n do
begin
read(a);
str(a,s);
if ((s[length(s-1)]='2')and((a mod 3)=0))then k:=k+1;
end;
writeln(k);
end.
Автор ответа:
0
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->(x mod 3=0) and (x mod 10=2)).Sum);
end.
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->(x mod 3=0) and (x mod 10=2)).Sum);
end.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Биология,
автор: akramovasahrizoda94
Предмет: Литература,
автор: Marg20000
Предмет: Алгебра,
автор: alinokina