№1 Вывести на экран квадраты чисел…

Question

№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10 числа n.

Answer 1

80

wonder

21 марта 2023

1) vari,n: integer; beginreadln (n); for i: =1 to n do writeln (i*i); end.2) vari,n: integer; beginreadln (n); for i: =1 to 10 do writeln (i: 2,'*',n,'=',i*n: 3); end.3) var i,n: integer; p: real; begin readln (n); p: =1; for i: =1 to n do p: =p*i; writeln (p: 15:0); end.4) vari,n: integer; beginreadln (n); for i: =1 to n do if (i mod 2=0) then writeln (i); end.5) vari,n,k: integer; beginreadln (n); k: =0; for i: =1 to n do if (i mod 15=0) then k: =k+1; writeln (k); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: