информатика программируем на python 1)Вводятся два целых числа не равных нулю. Проверить, делится ли первое на второе. Вывести на экран сообщение об этом, а также остаток (если он есть) и частное (в любом случае).
2)Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них.
type
song=record
name,style:string[20];
duration:real
end;
var
f:file of song;
r:song;
begin
Assign(f,'MySongs.dat');
Rewrite(f);
Writeln('Вводите данные в порядке "наименование, стиль, длительность');
Writeln('Для окончания ввода укажите символ * вместо наименования');
repeat
Readln(r.name);
if r.name<>'*' then begin
Readln(r.style);
Readln(r.duration);
Write(f,r)
end
until r.name='*';
Close(f)
end.