Question

помогите пожалуйста с Паскалем​

Answer 1

1. с for

var sum, i:integer;

begin

for i:=10 to 99 do

sum := sum +i;

write(sum);

end.

1. с while

var sum, i:integer;

begin

i:=10;

sum:=0;

while i<100 do

begin

sum := sum+i;

i:=i+1;

end;

write(sum);

end.

2. с for

var num, i:integer;

begin

write('Для какого числа необходимо вывести таблицу умножения? ');

readln(num);

for i:=1 to 10 do

writeln(num, ' * ', i, ' = ', num*i);

end.

2. с while

var num, i:integer;

begin

i:=1;

write('Для какого числа необходимо вывести таблицу умножения? ');

readln(num);

while i<=10 do

begin

writeln(num, ' * ', i, ' = ', num*i);

i:=i+1;

end;

end.

Answer 2

Ответ:

1-1:

var a,b:integer;

begin

a:=10;

b:=0;

 while a<=99 do begin

   b:=b+a;

   a:=a+1;

 end;

 writeln(b);

end.

1-2:

var a,b:integer;

begin

a:=10;

b:=0;

 for a:=10 to 99 do begin

   b:=b+a;

 end;

 writeln(b);

end.

2-1:

var n,b,s:integer;

begin

readln(n);

b:=0;

 for b:=1 to 10 do begin

   s:=n*b;

   writeln(s);

 end;

end.

2-2:

var n,b,s:integer;

begin

readln(n);

b:=1;

while b<=10 do begin

   s:=n*b;

   b:=b+1;

   writeln(s);

 end;

end.