//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры program Sravnenie; var a, b: integer; // Стороны 1-ого прямоугольника d, c: integer;// Стороны 2-ого прямоугольника S1, S2: integer; // Площадь buf: integer;// Если площадь 1-ого будет меньше 2-ого //поменяем местами,что бы избавиться от минуса razn: integer; // Разница 2-ух площадей
begin Write('Введите стороны 1-ого прямоугольника: '); Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: '); Readln(d, c); S1 := a * b; //Площадь 1-ого S2 := d * c; //Площадь 2-ого if S1 < S2 then begin buf := S1; S1 := S2; S2 := buf; end; razn := S1 - S2; Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз'); end.
1.Програма должна уметь вычислить заработок продавца Исходные данные: А Смысловое значение: Сума которою получает продавец с продажи 50 газет. Тип: Целые. Исходные данные: В Смысловое значение: Количество проданных газет несчитая первые 50. Тип: Целые. Результат S Смысловое значение: Заработок продавца Тип: Целые 2.S=50*A+B*1,2*A 3.Дивись малюнок 4. var a,b,s,i:real; begin Writeln('A= '); readln(a); Writeln('B='); readln(b); s:=50*a+b*1.2*a; writeln('Заработок продавца: ',s); end. 5.Запускай программу с разными исходными даннымы и проверяй результати её работы [ это уже сам :) ]
