Регистрация
АлисаСелезнёва1
27.12.2021 07:45
Информатика
Есть ответ 👍

Решите второе , надо! паскаль abc

152
397
Посмотреть ответы 2

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

Андрей3482
Андрей3482
4,8(33 оценок)

program noname;

var i,d,n,k: integer;

a: array[1..] of integer;

begin

k: =0;

read (d);

write('количество цифер в массиве ');

read (n)

for i: =1 to n do

begin

if (a[i] > 0)and(a[i]< d) then k: =k+1;

end;

write (k)

end.

program noname;

var n,i: integer;

a: array[1..] of integer;

begin

read (n);

for i: = 1 to n do

begin

if (a[i] mod 3 = 0) then

a[i] : = a[3];

write (a[i]);

end;

end.

скажу сразу, не проверял, возможно несколько недочётов упустил, но основа есть

zangeevdima
zangeevdima
4,8(87 оценок)
Var p,h: real; begin writeln('введите p,h: '); readln(p,h); writeln('p=p*g*h=',p*10*h); end.

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