Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Var
n:integer;
a:real;
begin
writeln('введите число и степень');
readln(a,n);
writeln('степень : ', exp(ln(a)*n));
writeln('корень: ',exp(ln(a)*(1/n)));
end.
Программа выводит s=402
Описание программы :
Объявление целых переменных s,k
Присвоение нач. значения s=500
Цикл по k от 4 до 10
В цикле из текущего значения s вычитается удвоееное значение k и присваивается s
Вывод s
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.
Ответ:
А где задание?
Объяснение:
Я не могу дать ответ без задания!!!