Порядок выполнения задания: 1. Измерь свой шаг рулеткой, вырази результат в метрах. 2. Определи количество - id1635842720220815 от Alexgk13 15.08.2022 08:05

Question

Информатика: Порядок выполнения задания: 1. Измерь свой шаг рулеткой, вырази результат в метрах. 2. Определи количество шагов и потраченное время на дорогу от школы до дома или от дома до ШКОЛЫ. 3. Найди длину траектории, умножив количество шагов на длину одного шага. 4. Разделив значение пути на затраченное время, определи свою скорость,​

Alexgk13 · Accepted Answer

Решение с массивом
var a: array[1..1000] of longint;
i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1;
if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.

Решение без массива
var x, i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(x);
if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1;
if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.

MOGZ ответил