Предмет: Информатика,
автор: Фуфап
СРОЧНО В ПАСКАЛЕ!!!!! МНОГО БАЛЛОВ ДАЮ!!! 9 КЛАСССС
8) Известен факториал числа n. Найти это число.
15) Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить:
а) в какой день он пробежит больше 20 км;
б) в какой день суммарный пробег за все дни превысит 100км.
26) Дано натуральное число:
в) предпоследнюю цифру заменить на 0;
Ответы
Автор ответа:
0
Вот оттестированный мой вариант программы. Тестировал на числах от 1 до 6. Писать начал чуть раньше Антагониста, но он оказался шустрее :))
//PascalABC
//NaaMan
//Программа расчитана ТОЛЬКО на факториалы
//Проверки ошибочного ввода НЕТ
var n, result, i : real;
begin
write('Введите факториал > ');
readln(n);
if (n = 1) then
result := 1
else begin
i := 2;
while n <> 1 do begin
n := n / i;
result := i;
i := i + 1;
end;
end;
writeln('Число ', result);
end.
//PascalABC
//NaaMan
//Программа расчитана ТОЛЬКО на факториалы
//Проверки ошибочного ввода НЕТ
var n, result, i : real;
begin
write('Введите факториал > ');
readln(n);
if (n = 1) then
result := 1
else begin
i := 2;
while n <> 1 do begin
n := n / i;
result := i;
i := i + 1;
end;
end;
writeln('Число ', result);
end.
Приложения:
Автор ответа:
0
В .NET все это решено, он выдает NaN и -NaN как аналог плюс и минус бесконечности, но не слетает.
Автор ответа:
0
exp - обратное ln?
Автор ответа:
0
да
Автор ответа:
0
15) Pascal ABC
var
n,i:integer;
a:real;
begin
a:=10;
readln(n);
For i:= 1 to n do a:=a*1.1;
writeln(a);
end.
а)8
б)25
26)
var
n:integer;
begin
readln(n);
n:=(n div 100)*100+n mod 10;
writeln(n);
end.
var
n,i:integer;
a:real;
begin
a:=10;
readln(n);
For i:= 1 to n do a:=a*1.1;
writeln(a);
end.
а)8
б)25
26)
var
n:integer;
begin
readln(n);
n:=(n div 100)*100+n mod 10;
writeln(n);
end.
Приложения:
Похожие вопросы
Предмет: Литература,
автор: ivanpetrovuchkashenk
Предмет: Биология,
автор: sansahaste
Предмет: Информатика,
автор: kristina2005841
Предмет: Химия,
автор: Milena1999g