информатика
1. Задача: Найти сумму 20 чётных чисел.

а) Выполните постановку задачи в стандартной форме. [1]

б) Начерти блок-схему. [3]

в) Напиши псевдокод к задаче. [3]

242

339

Посмотреть ответы 1

Ответы на вопрос:

assija56

Информатика

4,5(27 оценок)

Pascalabc.net const //формат файла //фамилия имя номер fl = 'd: \phone.txt'; var t : text; c : char; fnm,s : string; begin assign (t,fl); reset (t); writeln ('укажите фамилию'); readln (fnm); writeln(); while not eof (t) do begin s : = ''; //считываем фамилию read (t,c); while c < > ' ' do begin s : = s + c; read (t,c); end; //если фамилию нужная то дочитываем //иначе переходим к следующему if s = fnm then begin write (s+' '); while not eoln(t) do begin read (t,c); write (c); end; readln (t); writeln (); end else readln (t); end; close (t); end.