Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

1)Напечатайте таблицу сложения для чисел от 15 до 20. Все данные расположите в несколько столбцов так что бы они были видны на экране. (Паскаль)

2) Скрин =>

Ответ оставил Гость

1)

const

n=7;

var

a:array [1..n,1..n] of integer;

i,j,k:Integer;

begin

k:=15; 

for i:=1 to n-1 do begin

a[1,i+1]:=k;

a[i+1,1]:=k;

k:=k+1;

end;

for i:=2 to n do 

for j:=2 to n do  a[i,j]:=a[i,1]+a[1,j];

for i:=1 to n do begin

for j:=1 to n do write (a[i,j]:4);

writeln;

end;

readln;

end.

2)

var

s,k,a:integer;

sr:real;

begin

s:=0;

k:=0;

a:=10;

repeat

s:=s+a;

k:=k+1;

a:=a+5;

until a>99;

sr:=k*k+s/2;

writeln (Sr: ,sr:0:5);

end.