Нужно сделать только первые два задания , заранее спасибо :з ИНФОРМАТИКА!!1!11!
Нужно сделать только первые два задания , заранее спасибо :з ИНФОРМАТИКА!!1!11!
Гость
Ответ(ы) на вопрос:
Гость1)
const
t = 18 * 60 + 30;
var
s: string;
i, n, k, d1, d2: integer;
begin
readln(n);
for i := 1 to n do
begin
readln(d1, d2);
if d1 * 60 + d2 < t then k := k + 1
end;
writeln(k);
end.
2)
var
n, k: integer;
begin
readln(n);
while n <> 0 do
begin
if (n mod 5 = 0) or (n mod 7 = 0) then k := k + 1;
readln(n);
end;
writeln(k);
end.
Не нашли ответ?
Похожие вопросы