привет исправить код на паскале var FirstValue,SecondValue,ThirdValue,FourthValue,S,perimetr,stoimost - id1356989820220307 от GNRK 07.03.2022 08:18

Question

Информатика: привет исправить код на паскале var FirstValue,SecondValue,ThirdValue,FourthValue,S,perimetr,stoimost : double; begin writeLn( введите первое число ); read(FirstValue); writeLn( введите второе число ); read(SecondValue); writeLn( введите третье число ); begin if (FirstValue = SecondValue or FirstValue = ThirdValue or SecondValue = ThirdValue) then begin p:= (FirstValue + SecondValue + ThirdValue); q:= p * 0.5; s:= Math.Sqrt(p * (p - FirstValue) * (p - SecondValue) * (p - ThirdValue)); WriteLn(s);

GNRK · Accepted Answer

Var _500,_100,_50,_10,money_get:integer;beginwriteln('Введите стоимость товара');readln(money_get);while(money_get mod 10 <> 0) do begin writeln('стоимость должна делиться на 10, попробуйте еще раз'); readln(money_get); end;while (money_get>=500) do begin _500:=_500+1; money_get:=money_get-500; end;while (money_get>=100) do begin _100:=_100+1; money_get:=money_get-100; end;while (money_get>=50) do begin _50:=_50+1; money_get:=money_get-50; end;while (money_get>=10) do begin _10:=_10+1; money_get:=money_get-10; end;
writeln(_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей');

readln;end.

MOGZ ответил