1. Створіть програму розв'язання задачі в середовищі Python. Яблука складені на прилавку пірамідкою: зверху одне, далі два, три, чотири і т.д. Скільки яблук на прилавку, якщо всього 20 рядів?
Var a,b,c,n:integer; begin for a:=1 to 7 do for b:=a+1 to 8 do for c:=b+1 to 9 do begin n:=a*100+b*10+c; write(n:4) end; end.
var i,j,n:integer; a:array[1..4,1..5]of real; begin for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=random*2-1; write(a[i,j]:20:15); if a[i,j]>=0 then n:=n+1; end; writeln; end; writeln('Количество неотрицательных: ',n); end.
var i,j,sum:integer; a:array[1..3,1..4]of integer; begin for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]); writeln('Массив:'); for i:=1 to 3 do begin for j:=1 to 4 do begin sum:=sum+a[i,j]; write(a[i,j]:4); end; writeln('sum=':8,sum); sum:=0; end; end.
Var S:real; N:integer; Begin //Первый S:=0; For N:= 1 to 50 do S:=S+1/N; WriteLn('S = ',S);
//Второй S:=0; N:=0; Repeat N:=N+1; S:=S+1/N; Until N = 50; WriteLn('S = ',S);
//Третий S:=0; N:=0; While N<>50 do Begin N:=N+1; S:=S+1/N; End; WriteLn('S = ',S);
End.
Var X:real; Begin X:=-3; Repeat WriteLn(X:4:1,' ',((3*X*X-2)/4):6:3); X:=X+0.2; Until X>3; End.
Var A:real; i,k:integer; Begin k:=0; WriteLn('Введите 10 чисел'); For i:= 1 to 10 do Begin Read(A); if A<0 then k:=k+1; End; WriteLn('Кол-во отрицательных: ',k); End.
begin
for a:=1 to 7 do
for b:=a+1 to 8 do
for c:=b+1 to 9 do
begin
n:=a*100+b*10+c;
write(n:4)
end;
end.
var
i,j,n:integer;
a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random*2-1;
write(a[i,j]:20:15);
if a[i,j]>=0 then n:=n+1;
end;
writeln;
end;
writeln('Количество неотрицательных: ',n);
end.
var
i,j,sum:integer;
a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
sum:=sum+a[i,j];
write(a[i,j]:4);
end;
writeln('sum=':8,sum);
sum:=0;
end;
end.