№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10 числа n. №3 Вычислить значение факториала n! №4 В диапазоне от 1 до n вывести все четные числа на экран. №5 Найти количество чисел, ...
№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10 числа n. №3 Вычислить значение факториала n! №4 В диапазоне от 1 до n вывести все четные числа на экран. №5 Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Гость
Ответ(ы) на вопрос:
Гость1) var i,n:integer; begin readln(n); for i:=1 to n do writeln(i*i); end. 2) var i,n:integer; begin readln(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) var i,n:integer; begin readln(n); for i:=1 to n do if (i mod 2=0) then writeln(i); end. 5) var i,n,k:integer; begin readln(n); k:=0; for i:=1 to n do if (i mod 15=0) then k:=k+1; writeln(k); end.
Не нашли ответ?
Похожие вопросы