Решить задачи в Программирование на языке Python Шеф-повар отправился на рынок за покупками. Он купил пять килограмм баклажанов по Х рублей за килограмм, и четыре килограмма лука по Y рублей за килограмм. Сколько он потратил денег, если еще он купил сумку за три рубля? Напишите программу, которая спросит Х и Y и выведет ответ. Гусеница отправилась в поход. Она проползает 2 метра за 45 минут. Световой день, когда она может передвигаться, составляет Х часов. Введите количество дней Y и определите, как далеко от дома, в километрах, окажется Гусеница. Чтобы подковать лошадь, нужно 4 подковы. М подмастерьев изготовили N подков каждый. Но лошадей очень много, на всех подков не хватит. Напишите программу, которая спросит N и M и ответит, останется четное или нечетное число подков после того, как всех лошадей подкуют готовыми подковами. Гусеницы (а длина каждой гусеницы G см) решили построить мост через овраг: каждая Гусеница держит во рту палочку длиной А см. Первая Гусеница цепляется за правый берег хвостом, вторая цепляется хвостом за её палочку. Последняя Гусеница ничего во рту не держит, она уцепилась за корешок липы на левом берегу. Введите количество гусениц (Х) и посчитайте длину моста в метрах. На плоскости заданы координаты концов отрезка: X1,Y1 для первой точки и X2,Y2 для второй точки. Напишите программу, которая спросит эти значения и ответит, будут ли этот отрезок параллелен оси X или оси Y. Если отрезок параллелен любой из осей, программа должна написать «да», если ни одной, то «нет».
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
(4321103)=(10000011110111001010001)