Програма Python.
Прибуток від двох фірм Кагарлицького району Київської області постійний і складає, відповідно, 10 і 15 млн грн на рік. Ще від двох фірм цього району прибуток визначається наприкінці року. Постійний прибуток також мають дві фірми Обухівського району Київської області й становить, відповідно, 9 і17 млн грн на рік, а від однієї фірми прибуток визначається наприкінці року. Розробіть програму обчислення загального прибутку фірмами з кожного району. Виберіть і обґрунтуйте раціональний варіант програмного коду.
var
x,y:integer;
begin
writeln('Введите х');
readln(x);
writeln('Введите y');
readln(y);
if x<y then writeln('Меньшее: ',x) else
if x>y then writeln('Меньшее: ',y) else
if x=y then writeln('Числа равны')
end.
задача 2
var
x,y:integer;
begin
writeln('Введите первое число');
readln(x);
writeln('Введите второе число');
readln(y);
if y=0 then writeln('Второе число равно 0. Деление невозможно!') else
writeln(x,'/',y,'=',x/y);
end.
задача 3
var
s,name:string;
begin
writeln('Введите ваше имя');
readln(name);
writeln('Введите строку');
readln(s);
if s=name then writeln('Привет!') else
writeln('Здравствуйте!');
end.
задача 4
var
x:integer;
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then writeln('Четное') else writeln('Нечетное')
end.
задача 5
var
x:string;
i:integer;
begin
writeln('Введите строку');
readln(x);
writeln('Введите номер символа');
readln(i);
if i > length(x) then writeln('Нет символа!') else writeln(x[i])
end.
задача 6
var
x,y:integer;
begin
writeln('Количество яблок:');
readln(x);
writeln('Количество апельсинов:');
readln(y);
if (x*100)>(y*150) then writeln('Берите яблоки')
else
if (x*100)<(y*150) then writeln('Берите апельсины')
else
if (x*100)=(y*150) then writeln('Вес яблок и апельсинов одинаковый')
end.