Формулы
1) a+a+a \ 3
2)нужно знать ср. арифм. и 1 число
Program prog;
Uses crt;
var a: integer;
begin
clrscr;
write('a = ');
readln(a);
if ((abs(a)>9) and (a<100)) then
writeln('Sum = ', abs(a mod 10) + abs(a div 10))
else
writeln('Error');
end.
Var i: integer;
begin
write('введите число ');
readln(i);
writeln('квадрат этого числа= ',I*i);
writeln('куб этого числа= ',power(i,3));
writeln('пятая степень этого числа= ',power(i,5));
end.
Или 20
<span>или 23 </span>
<span>или 26 </span>
<span>или 29</span>
1.
var x, i: integer;
var c : array[1..31] of boolean;
begin
c := 0;
for i:= 1 to 31 do c[i] := false;
for i := 1 to 31 do begin
readln(x); if (x = 0) then c[i] := true;
end;
writeln('В следующие дни не было осадков: ');
for i:= 1 to 31 do if (c[i]) then writeln(c[i]);
readln(i);
end.
2.
var x,i,n,c: integer;
begin
realn(n);
for i:= 1 to n do
begin
readln(x); if (x < 0) then c := c + x;
end;
writeln('Ответ: '); write(c);
readln(x);
end.
P.S. На паскале не писал давно. Код не компилировал (ибо его сюда копипастить без последствий нельзя.), так что могут быть незначительные ошибки. + сразу говорю (как программист с некоторым опытом и будучи уже не школьником) - код го*но. Так никто не делает, так никто не пишет, но для "школьного паскаля" достаточно
