Def func(s, flag):
if flag:
print(s, s, '')
else:
print(s)
func("Znanija", True)
func("Znanija", False)
Program sh;
var n,k: integer;
begin
write('введите кол-во школьников: ');
readln(n);
write('введите кол-во яблок: ');
readln(k);
writeln('останется в корзинке: ', k mod n);
writeln('достанется каждому по ', k div n);
end.
Ответ вот тут максимальное разрешение 1023*289
6878*3422
Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
<span>end.
Тут всё понятно</span>
1 не получится т. к. не таких цифр, сложив которые можно получить 19.(можно получить максимум 18=9+9). третье нельзя получить т к они не в порядке возрастания. Второе получить не получается. Ответ правильный 4. Пример цифр для 815: 1 7 8. 1+7=8! 7+8=15 и записываем 815