Задание:
№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10 числа n.
Решение:
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.
Знаете другой ответ?