Информатику незнаю как решить


Информатику незнаю как решить

shansosia05sofisofi shansosia05sofisofi    3   21.11.2021 06:31    2

Ответы
bogdan345710 bogdan345710  21.11.2021 06:40

VAR a, b: integer;

begin

Readln (a);

b:= a div 10;

a:= a mod 10;

If (a+b)>9 then write ('yes')

else write ('no');

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика