У Алисы 9 пауков. За день она проводит несколько опытов и записывает в строку, сколько пауков понадобилось - id2133891420230130 от Nikaslavnikova 30.01.2023 04:58

Question

Информатика: У Алисы 9 пауков. За день она проводит несколько опытов и записывает в строку, сколько пауков понадобилось для каждого. Например, запись «022» означает, что было 3 опыта, в первом пауков не было, а в последних двух участвовало 2 паука. Вася нашёл записи Алисы за несколько дней. В каждой строке — данные за один день, а в конце ноль. Выведи, сколько опытов Алиса проводила каждый день. Ввод Вывод 1 1 11 2 111 3 11 2 1 0 1 1 1 1 1 100500 6 0

Nikaslavnikova · Accepted Answer

Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.

Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard

MOGZ ответил