lanac3po
?>

Unicode артыкшылыгы кемшилиги ​

Информатика

Ответы

nelli-bi6

взущзажмдмю юажжвэцэцхцхц

Объяснение:

аххамжэмэмэсэсэмхмх

saljagindima
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
oslopovavera
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Unicode артыкшылыгы кемшилиги ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Kamil
grebish2002
solonataly5
uksusoval617
marinaled8187
idalbaev
nash-crimea2019
andrew55588201824
rusplatok
adman7
irina611901
Dampil
N-odes-art-school410
VladimirovnaBugrova
Dmitrychekov9