Определить какой пакет тяжелее

@kasimov92 · Регистрация: 12.04.2010

Author24 — интернет-сервис помощи студентам

Составить программу с комментариями:

Рис расфасован в два пакета.Вес первого m кг, второго-n кг. Определить какой пакет тяжелее-первый или второй и перевести вес этого пакета в граммы ,если он окажется меньше 15 кг.

Пересчет веса из килограммов в граммы.
ВВедите вес первого пакета m(кг): 5
ВВедите вес второго пакета n(кг): 8

Ответ:8000 гр.

Повторите запуск программы ,используя другие исходные данные:
m=15,n=25 {ответ: 25 кг}

@Snoopy · 17.04.2010, 18:31

Pascal

uses crt;
var m,n:real;
begin
ClrScr;
Writeln('Vvedite ves 1-ogo: ');
Readln(m);
Writeln('Vvedite ves 2-ogo: ');
Readln(n);
if (m>n) and (m<15) then
 Writeln(m*1000:0:2)
 else
  if m>n then
   Writeln(m:0:1);
if (n>m) and (n<15) then
 Writeln(n*1000:0:2)
 else
  if n>m then
   Writeln(n:0:1);
Readln;
end.

@kasimov92 1 / 1 / 0 Регистрация: 12.04.2010 Сообщений: 39
		1
	Определить какой пакет тяжелее 17.04.2010, 18:23. Показов 2650. Ответов 1 Метки нет (Все метки) Составить программу с комментариями: Рис расфасован в два пакета.Вес первого m кг, второго-n кг. Определить какой пакет тяжелее-первый или второй и перевести вес этого пакета в граммы ,если он окажется меньше 15 кг. Пересчет веса из килограммов в граммы. ВВедите вес первого пакета m(кг): 5 ВВедите вес второго пакета n(кг): 8 Ответ:8000 гр. Повторите запуск программы ,используя другие исходные данные: m=15,n=25 {ответ: 25 кг} 1

	17.04.2010, 18:31

Определить какой пакет тяжелее

Решение