Напишите программы. Заранее спасибо!
5-9 класс
|
1) P:= 1*2*3....*N
2) S:= 100+95*90+...5
1)Это функция факториала числа
readln(n);
I:=n;
y:=1;
while i>1 do
begin
y:=y*i;
i:=i-1;
end;
2) ну вот по том что ты написал
var i,n:Integer;
begin
i:=5;
n:=0;
repeat
n:=n+i;
i:=i+5;
until i=100;
Writeln(n);
readln;
end.
Другие вопросы из категории
количество используемых цветов 24
Читайте также
чисел, кратных 3, но не кратных 6, в последовательности заданных чисел. Программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 1000. Введенные числа по модулю не превышают 30000."
Решение:
10 CLS
20 FOR I=1 TO 1000
30 INPUT "Введите число";A(I)
40 IF A(I)=0 THEN M=I AND 60
50 NEXT I
60 FOR I=1 TO M
70 IF A(I) MOD 3 = 0 AND A(I) MOD 6 <>0 THEN S=S+1
80 NEXT I
0 PRINT S
100 END
Заранее спасибо
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
[email protected] заранее спасибо
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.