1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.
Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131
первый 0 означает что для вывода челой части будет использованно минимальное количество символов
второй 0 означает что число будет округляться до 0 знаков после запятой
Выражение не А следует за П принимает положительные значения на отрезке: -бесконечность...10 и 15..+бесконечность
Выражение Ку следует за Р принимает положительные значения на отрезках: - бесконечность ... 5 и 15 ... + бесконечность,
То есть разные значения эти выражения будут иметь на отрезке 5 .. 10 (первое выражение истинно, второе ложно), значит длина отрезка 5