//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
Var a,b,c:integer;
begin
writeln('Введите номер секунды');
readln(a);
b:=a div 3600;
c:=(a - 3600*b) div 60;
writeln(b,' ч ',c,' мин');
<span>end.</span>
Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.
for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100
Все считаю в одной программе, если что, можно у1 и у2 в
разные разнести
<span><span>
Var
x:integer;
y1,y2:real;
begin
writeln('</span>Введите х<span>');
readln(x);
y1:=(3*exp(4*ln(x))+1)/exp(3*ln(x));
y2:=sqrt(8+x)-sqrt(8-x);</span></span>
writeln(‘y1=’,y1);
writeln(‘y2=’,y2);
end.