Шығарылу жолын айтып жіберіңдерш

Question

Информатика: Шығарылу жолын айтып жіберіңдерш

френкинштеин · Accepted Answer

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( Объём...

MOGZ ответил