1.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.
Результат:
<span>s = 2475
2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.
Пример:
2
<span>2^5 = 32
3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*i<n do
begin
writeln(i,' (',i,'^2 = ',i*i,')');
i:=i+1;
end;
end.
Пример:
30
<span>1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)</span></span></span>
1 Kaspersky
2 Если нажать Пропустить
3 Предотвратить заражение компьютера вирусами
4 1 Компьютер
2 Антивирус
3 Вирусы с сайтов интернета (Можно просто - Вирусы)
//PascalABC.Net 3.2
function f(x:real):=1/(x*sqr(x)-2*x);
begin
write ('y=', f(readreal('Введите x: ')));
end.
Алгоритмический язык:
нач
ввод (x);
вывод (1/x^3-2x);
кон
Стас Петя и Коля -1,2,6
Миша и Петя ничего не держат, то Петя -6
Олег стоит возле Коли так как он стоит между с очками(колей) и Мишой(без очков)
то
Стас-1
Коля-2
Олег-3
Миша-4
Толя-5(он лишился)
Петя-6
цыкл выполниться 8 раз, каждый раз к S прибавляется 7, следовательно после выполнения цикла, в S будет 56, оно и выведется