Var
num: integer;
begin
readln(num);
writeln('Больше 10? ', num mod 10 + num div 100 + num div 10 mod 10 > 10);
end.
ПрезентацияMicrosoftPowerPoint.ptx
Program zadacha;varN,s,a : longint;beginwriteln('vvedite chislo: ');readln(n);writeln('vvedite k');readln(a);s := 0;while n <> 0 dobegins := s + (n mod 10);n := n div 10;end;if (s mod a) = 0 thenwriteln('kratna')elsewriteln('net');end.
Программы для решения задач - в прилагаемом файле.
Правильный ответ: =ЕСЛИ(B8<=4;B8*1000;4000+(B8-4)*750)