Домашняя работа на 17 февраля

Для тех, кто хочет знать

• ПОСМОТреТЬ видео
• Скачать обучающую программу и поработать дома. ссылка

Обязательно

Выписать в тетрадь, выучить

 var x,c,i: integer;

begin
    c:=0;
    for  i:= 1 to 5 do
               c:= c+i;
    writeln('i=',i,'  c=',c);
end.

 var x,c,i: integer;
begin
    c:=1;
    for  i:= 1 to 5 do
               c:= c*i;
    writeln('i=',i,'  c=',c);
end.

var x, c ,i: integer;
begin
 write('ввести  x = ');
 read(x);
for  i := 1 to 9 do
begin
 c := i * x;
 writeln(i,' * ',x,' = ',c);
end;
end.