<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('y=');
var x:=(y-16)/10;
Writeln('При y=',y,', x=',x)
end.
<u>Пример</u>
y= 4.17
При y=4.17, x=-1.183
Алгоритмом называется точная инструкция исполнителю в понятной для него форме, определяющая процесс достижения поставленной цели на основе имеющихся исходных данных за конечное число шагов.
Основными свойствами алгоритмов являются:
1. Универсальность (массовость) - применимость алгоритма к различным наборам исходных данных.
2. Дискретность - процесс решения задачи по алгоритму разбит на отдельные действия.
3. Однозначность - правила и порядок выполнения действий алгоритма имеют единственное толкование.
4. Конечность - каждое из действий и весь алгоритм в целом обязательно завершаются.
5. Результативность - по завершении выполнения алгоритма обязательно получается конечный результат.
6. Выполнимость - результата алгоритма достигается за конечное число шагов.
const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.
решением неравенста является множество {4 5 6 7}
его мощность равна 4
