Помогите пожалуйста
Ошибка в Pascal (встречен конец файла, а ожидался оператор)
program qq;
var a,b,c,max:integer;
begin
writeln('Введите три целых числа и найдите наибольшее из них');
read(a,b,c);
if a>b then begin
max:a;
end;
begin
if c>a then begin
max:c;
writeln('Наибольшее число',max);
end.
Ответы
Ответ дал:
0
После max ты поставил ":" (max:a; max:c;) а надо ":=" (max:=a; max:=c;)
Ответ дал:
0
Я так посмотрел ошибок море вот правельна написанное задание
Ответ дал:
0
program qq;
var a,b,c,max:integer;
begin
writeln('Введите три целых числа и найдите наибольшее из них');
read(a,b,c);
if a>b then
writeln('Наибольшее число',max);
end.
var a,b,c,max:integer;
begin
writeln('Введите три целых числа и найдите наибольшее из них');
read(a,b,c);
if a>b then
writeln('Наибольшее число',max);
end.
Ответ дал:
0
Да блин
Ответ дал:
0
Вот
Ответ дал:
0
program qq;
var a,b,c,max:integer;
begin
writeln('Введите три целых числа и найдите наибольшее из них');
read(a,b,c);
if (a>b) and (a>c) then
mas:=a;
if (b>a) and (b>c) then
mas:=b;
if (c>b) and (c>a) then
mas:=c;
writeln('Наибольшее число',max);
end.
var a,b,c,max:integer;
begin
writeln('Введите три целых числа и найдите наибольшее из них');
read(a,b,c);
if (a>b) and (a>c) then
mas:=a;
if (b>a) and (b>c) then
mas:=b;
if (c>b) and (c>a) then
mas:=c;
writeln('Наибольшее число',max);
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад