Ответ:
На Python:
longint = input('Введите число: ')
for i in longint:
print(i)
Объяснение:
Const
n1 = 20;
m1 = 20;
var
a: array[1..n1, 1..m1] of integer;
b: array[1..m1] of integer;
i, j, m, n: integer;
begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
Writeln('Сформированный массив');
for j := 1 to m do
begin
i := 1;
while (i <= n) and (a[i, j] >= 0) do i := i + 1;
if i <= n then b[j] := a[i, j] else b[j] := -99;
Write(b[j]:4)
end;
Writeln
end.
<u>Тестовое решение:</u>
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
-11 -18 -42 -22 -9 2 21 15 40 -3
4 -5 40 -13 -44 -37 43 47 1 -39
20 50 21 -18 -10 6 12 -10 43 -37
Сформированный массив
-11 -18 -42 -22 -9 -37 -99 -10 -99 -3
Var p,a,s:real;
begin
write('p = ');
readln(p);
a:=p/3;
s:=a*a*sqrt(3)/4;
writeln('a = ',a:5:2,' s = ',s:5:2);
end.
Пример:
p = 9
a = 3.00 s = 3.90
//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
write ('y=', sqr(1-x*x+5*sqr(x*x)) );
end.