Регистрация
CbIP0K
14.06.2021 15:33
Информатика
Есть ответ 👍

Исправить ошибки
Условие задачи: составить программу обмена местами двух чисел c и d (Числа не дробные).
Var c,d m:integer;
Procedure obmen (а, b:string)
var m:integer;
begin
m:=a; a:=b; b:=m
writeln (a,b);
begin
writeln (‘Введите 3 числа:’);
readln (c,d);
begin
obmen (с;d);
writeln (с, ‘ ’, d)
end.

204
365
Посмотреть ответы 1

Ответы на вопрос:

nazarovradion
nazarovradion
4,6(54 оценок)
Первая (я проверил программу, все норм работает)var a,b,c,max,min,s: real; begin read(a,b,c); if a> b then if a> c then max: =a else max: =c else if b> c then max: =b else max: =c; if a< b then if a< c then min: =a else min: =c else if b< c then min: =b else min: =c; s: =max+min; writeln(s: 2: 2); end. вторая (я проверил программу, все норм работает) var t,s,n: integer; r: real; begin read(n); s: =0; read(t); while t< > 0 do begin s: =s+t; read(t); end; r: =s/n; writeln(r: 2: 2); end.

Популярно: Информатика