Регистрация
Чикама
28.10.2021 20:58
Информатика
Есть ответ 👍

Известно x,y,z найти a,b (pascal).

199
459
Посмотреть ответы 3

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

sofia2004417
sofia2004417
4,4(53 оценок)

uses crt;

var i,a,b,x,y,z,m: integer;

begin

write('vvesti A kratno 5 '); readln(a);

write('vvesti B kratno 5 '); readln(b);

write('vvesti X, Y, Z '); readln(x,y,z);

m:=x;

if m>y then m:=y;

if m>z then m:=z;

y:=a*m-b;

writeln(y);

readln;

end.

Объяснение:

coolkaruna32ya
coolkaruna32ya
4,5(38 оценок)

uses crt;  var i,a,b,x,y,z,m: integer;    begin    write('vvesti A kratno 5 '); readln(a);     write('vvesti B kratno 5 '); readln(b);     write('vvesti X, Y, Z '); readln(x,y,z);   m:=x;   if m>y then m:=y;  if m>z then m:=z;  y:=a*m-b;  writeln(y);  readln;  end.

djdhd1
djdhd1
4,5(41 оценок)

1 . Нажмите кнопку ЦВЕТ заливки фигур для применения различных заливку или градиент, рисунок или текстура элементу диаграммы.

2. Нажмите кнопку контур фигуры, чтобы изменить цвета,толщины или типа элемент диаграммы.

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