Задание 3
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
y := 3 / (x - 5);
WriteLn ('y = ' + FloatToStr (y));
end.
// ----------------------------------------------
Задание 4
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
if x < -1 then
y := 2 * x + 4
else if x > 3 then
Sqrt (x + 7)
else
y := 3 * x * x - x + 1;
WriteLn ('y = ' + FloatToStr (y));
end.
Алгоритм вычисления суммы1. Пусть дан массив A, состоящий из n элементов: a1, a2, a3, …, an. Нужно найти их сумму, т.е. S=a1+a2+a3+…+an.Нахождение суммы есть последовательное нахождение суммы по формулам:S=0 S=S+a2 … S=S+ai S=S+anS=S+a1 S=S+a3 …
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords.Reverse; s.Println
end.
Win7: основная ос в мире создана в 2009 году. Имеет более защищенный код чем у win xp.
win8; выпущена в 2012 году. была в первые приминен плиточный интерфейс, имеет синхронизацию со смартфонами на wp.
win 10: доработана работа со не сенсерными экранами, имеет continoum(хз как пишется)
На 4:
var i,x,oc:integer;s:real;
begin
readln(x);
s:=0;
for i:=1 to x do
begin
oc:=random(5)+1;
s:=s+oc;
end;
writeln(s/x);
end.
На 5:
var i,s,ch,min:integer;
begin
s:=3;
for i:=3 to 30 do
begin
s:=s+2;
end;
ch:=s div 60;
min:=s-ch*60;
writeln('Часов ',ch,' минут ',min);
end.
