Регистрация
СешМАНИ
25.10.2020 02:36
Информатика
Есть ответ 👍

Задача — с клавиатуры вводится число N, обозначающее количество футболистов команды «Шайба», а затем – N строк, в каждой из которых – информация об одном футболисте таком формате:
<Фамилия> <Имя> <год рождения> <голы>
Все данные разделяются одним пробелом. Нужно подсчитать, сколько футболистов, родившихся в период с 1988 по1990 год, не забили мячей вообще.

294
332
Посмотреть ответы 2

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

Vasya1337ez
Vasya1337ez
4,8(15 оценок)

program qq;

uses crt;

var c: char;

i,n, count, Year, Gol: integer;

f:text;

begin

assign(f, 'input.txt');

reset(f);

writeln('Количество футболистов');

readln(N);

count := 0;

close (f);

for i:=1 to N do begin n:=5;

repeat readln(f,c); until c = ' ';

repeat readln(f,c); until c = ' ';

readln(f,Year);

readln(f,Gol);

if (1988 <= Year) and (year <= 1990) and

(Gol = 0) then count := count + 1;

 

end;

 

assign(f, 'output.txt');

rewrite(f);

 

Writeln(f);

close(f);

writeln(f,count);

end.

Объяснение:

krecet6r
krecet6r
4,8(16 оценок)

var s: string; beginwriteln('напишите слово'); readln(s); writeln('первый символ: "', s[1], '" второй символ: "', s[2], '" последний символ: "', s[length(s)], ''); end.

Популярно: Информатика