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

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

Gosha2202 @Gosha2202

July 2022 1 7 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

morfologicheskij razbor nakaplivayutsya i zhivushuyu

srochno ooooooooooooo reshite

srochno russkij yazyk s 32 po 36 zaranee spasibo

srochno russkij yazyk s 39 po 41 zaranee spasibo

ne nado bylo ih brat vypishite grammaticheskuyu osnovu

srochno russkij yazyk variant 5

srochno russkij yazyk variant 3

predlozhite sposoby razdeleniya razdeleniya smesi sostoyashej iz povarennoj soli sery

napisat pismo ot imyani zemlyaniki toest v stile togo vremyani vydumanomu dru

storony parallelogramma otnosyatsya kak 41 a ego perimetr raven 40 santimetrov na

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

Helpful Links

Helpful Social