Ответы
Ответ дал:
1
program ideone;
begin Var I, J: Integer;
I:=1;
for I:=1 To 10 Do
begin
J:=I*2;
write('2*');write(i);write('=');write(J);writeln('');
end;
end.
Тест:
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10
2*6=12
2*7=14
2*8=16
2*9=18
2*10=20
Скриншот выполнения
begin Var I, J: Integer;
I:=1;
for I:=1 To 10 Do
begin
J:=I*2;
write('2*');write(i);write('=');write(J);writeln('');
end;
end.
Тест:
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10
2*6=12
2*7=14
2*8=16
2*9=18
2*10=20
Скриншот выполнения
Приложения:
![](https://st.uroker.com/files/de2/de2bbfb250895997f7ed3f078aa51c87.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад