Program gg; var a,b,c,d,e,max:integer; begin writeLn('введите пять целых чисел'); read(a,b,c,d,e); if (a>=b) and (a>=c) an
Program gg; var a,b,c,d,e,max:integer; begin writeLn('введите пять целых чисел'); read(a,b,c,d,e); if (a>=b) and (a>=c) and (a>=d) and (a>=e) then begin max:=a; end else begin if (b>=a) and (b>=c) and (b>=d) and (b>=e) then begin max:=b; end else begin if (c>=b) and (c>=a) and (c>=d) and (c>=e) then begin max:=c; end else begin if (d>=b) and (d>=c) and (d>=a) and (d>=e) then begin max:=a; end else begin max:=e; end; writeln('наибольшее число ',max); end. где ошибка?
{ Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите: program gg; var a, b, c, d, e, max: integer;
begin writeLn('введите пять целых чисел'); read(a, b, c, d, e); if (a >= b) and (a >= c) and (a >= d) and (a >= e) then max := a else if (b >= a) and (b >= c) and (b >= d) and (b >= e) then max := b else if (c >= b) and (c >= a) and (c >= d) and (c >= e) then max := c else if (d >= b) and (d >= c) and (d >= a) and (d >= e) then max := a else max := e; writeln('наибольшее число ', max); end. ---------------------------------------------------------------------------- Форматирование кода: if (****) then begin оператор1; оператор2; end else begin оператор1; оператор2; end; }
----------------------------------------------------------------------------- Включите мозг и напишите нормальный код program gg;
var a, b, c, d, e, max: integer;
begin writeLn('введите пять целых чисел'); read(a, b, c, d, e); max:=a; if b > max then max:=b; if c > max then max:=c; if d > max then max:=d; if e > max then max:=e; Writeln(max); end.
----or----- // PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (a,b,c):=readinteger3; var (d,e):= readinteger2; Writeln(max(a,max(b,max(c,max(d,e))))); end.
<meta charset = "UTF 8"> <script> var a = prompt("Введите первое число"); var b = prompt("Введите второе число"); var c = a + b; var k = a * b; alert("Произведение" + k); alert("Сумма"+ c); </script> Кстати это HTML программа для браузера.
Укажу часть решения (на все, увы, нет времени, работать надо - и как бы вы меня не уговаривали, все же сделаю это на паскале, но если нужно будет - исправлю под плюсы):
1) Чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны: if (a = b) and (b = c) then writeln('TRUE') else writeln('FALSE');
2) У равнобедренного треугольника должны быть равны две стороны: if (a =b) or (b = c) or (a = c) then writeln('TRUE') else writeln('FALSE');
3) Для существования треугольника сумма любых его двух сторон должна быть больше третьей: if (a + b > c) and (a + c > b) and (b + c > a) then writeln('TRUE') else writeln('FALSE');
4) Тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат: if (a >= 0) and (b >= 0) then writeln('TRUE') else writeln('FALSE');
С последним разберешься сам, там тоже несложно. В единую программу, надеюсь, сможет восьмиклассник собрать части кода?