//PascalABC.Net 3.2
{2}
function f(x:real):real;
begin
if x>0 then result:=x/3 else result:=x*sqr(x);
end;
begin
write (f(readreal('x =')));
end.
{3}
begin
var cat:=readinteger('Введите начальное кол-во:');
var count:=0;
if cat<2 then write ('Никогда') else
if cat>100 then write ('Уже не хватает') else begin
repeat
count+=1;
cat+=cat div 2;
until cat>100;
print ('Через', count, 'недели');
end;
end.
<span><em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.</span>
<u>Пример</u>
n= 8
1 1 2 3 5 8 13 21
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>