Var
k, p, s: integer;
begin
readln(k, p, s);
k := k * (100 + p);
writeln((100 * s) div k);
end.
10011010, если расписывать, то просто 154 делить на два в столбик, и всё остатки должны сойтись с моим полученным числом, удачи!
1. 16-57, 8-127, 2-1010111
2. 58
3. 817
Ответ с точки зрения информатики:
Ветер - Выполнитель, выполняет действия : ГУЛЯЕТ(ДУЕТ), ПОДГОНЯЕТ(ДВИЖЕТ)
МОРЕ, КОРАБЛИК - объекты над которыми одновременно выполняет действие Ветер
Var
a:array [1..30] of integer; // тут можешь регулировать количество чисел
i,k,n:integer;
begin
k:=0;
writeln('введите количество чисел от 1 до 30');
read(n);
randomize;
for i:=1 to n do begin
a[i]:=random(16)-5;
write(a[i]:3);
end;
writeln();
for i:=1 to n do if (a[i] mod 3=0) and (a[i]<>0) then k:=k+1;
writeln(k);
<span>end.</span>