Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.
1-Формализация
2-Моделирование
3-Реляционная
4-Компьютерная
5-Ключ
6-Информационная
7-Таблица
8-Запись
9-Поле
10-Математическая
1)2 2)1 3)3 4)3 5)1 6)1 7)1 8)2 9)2 10) Цвет текста, размер текста, выравнивание.
11)для показания ошибок в правописании.
12)Изменения документа.
Если возрастающая, то следующий элемент больше хотя бы на 1. Если брать больше, то вычитаться будет больше, а итоговое значение - меньше. Итого за 10 итераций s доберёт (-1+3) * 10 = 20 единиц. Прибавляем к 15, получаем 35.
while A[x] while A[y]>m do y:=y-1; - эта строка - у тебя тут идет пока какой-то элемент выполнять цикл пока. И видимо на нем цикл крутится и не заканчивается вот тебе и ошибка