Определить общую стоимость автомобилей, у которых мощность двигателя превышает 100 л.с

@svjk · Регистрация: 14.05.2013

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

Известны данные о мощности двигателя (в л. с.) и стоимости 30 легковых автомобилей. Определить общую стоимость автомоби¬лей, у которых мощность двигателя превышает 100 л. с.

Kodzaev · 16.06.2013, 20:11

Pascal

const
  n = 3;
 
type
  avto = record
    power: Integer;
    price: Longint;
  end;
 
var
  x: array [1..n] of avto;
  i: Byte;
  s: Longint;
 
begin
  s := 0;
  for i := 1 to n do
  begin
    Write('Мощность: '); Readln(x[i].power);
    Write('Стоимость: '); Readln(x[i].price);
    if x[i].power > 100 Then
      s := s + x[i].price;
    Writeln('-------');
  end;
  Writeln('Общая стоимость авто, у которых мощность больше 100 л.с. = ', s);
  Readln
end.

@svjk 6 / 6 / 4 Регистрация: 14.05.2013 Сообщений: 34
		1
	Определить общую стоимость автомобилей, у которых мощность двигателя превышает 100 л.с 16.06.2013, 19:40. Показов 4197. Ответов 1 Метки нет (Все метки) Известны данные о мощности двигателя (в л. с.) и стоимости 30 легковых автомобилей. Определить общую стоимость автомоби¬лей, у которых мощность двигателя превышает 100 л. с. 0

	16.06.2013, 20:11

Опции темы

Определить общую стоимость автомобилей, у которых мощность двигателя превышает 100 л.с

Решение