информатика. Срочно пожалуйста.!!!!!!!! помогите. Created by Gosha2202. informatika-ru

информатика. Срочно пожалуйста.!!!!!!!! помогите...

Gosha2202 @Gosha2202

July 2022 1 9 Report

информатика. Срочно пожалуйста.!!!!!!!! помогите

Answers & Comments

AnonimusPro

Verified answer

1. Современное решение

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
ReadSeqInteger(ReadlnInteger).Where(t->t mod 10=5).Sum.Println
end.

Пример
3
15 25 24
40

2. Так все еще учат в большинстве (но не во всех!) школ

var
i,t,s,n:integer;

begin
Readln(n);
s:=0;
for i:=1 to n do begin
    Read(t);
    if t mod 10=5 then s:=s+t
    end;
Writeln(s)
end.

2 votes Thanks 1

Answers & Comments

Verified answer

морфологический разбор накапливаются и живущую!...

срочно ооооооооооооо! !!! решите...

срочно русский язык с 32 по 36. заранее спасибо...

срочно русский язык с 39 по 41 . Заранее спасибо...

Не надо было их брать. Выпишите грамматическую основу...

срочно русский язык вариант 5...

срочно русский язык вариант 3...

предложите способы разделения разделения смеси состоящей из поваренной соли серы...

написать письмо от имяни земляники ( тоесть в стиле того времяни) выдуманому дру...

стороны параллелограмма относятся как 4:1 а его периметр равен 40 сантиметров На...

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

Helpful Links

Helpful Social