Мен жақында компьютер сатып аламын. болашақ компьютерімді ұқыпты əрі таза ұстап,керегіме ғана пайдаланамын. себебі,компьютерде ұзақ отыру - денсаулыққа,əсіресе,көзге өте зиянды. əлеуметтік желілерге еркін қосылу үшін де компьютердің көмегі зор. тек ретімен ,ережелерін сақтап қолдану керек.
Спасибо
Ответ дал: Гость
решение на языке pascal
program pr;
var n,a,b,c, sum: integer;
begin
readln (n);
a: =n div 100;
b: =n mod 100 div 10
c: =n mod 10
sum: =a+b+c;
if sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');
Популярные вопросы