program numsum;
uses
SysUtils;
var
n, i, sn: Integer;
s: string;
begin
Write ('Введите четырехзначное число: ');
ReadLn (n);
n := Abs (n);
if (n > 9999) or (n < 1000) then begin
WriteLn ('Введенное число не четырехзначное');
ReadLn;
Exit;
end;
s := IntToStr (n);
sn := 0;
for i := 1 to Length (s) do
sn := sn + StrToInt (s [i]);
WriteLn ('Сумма цифр числа = ', sn);
if sn mod 5 = 0 then
WriteLn ('Сумма цифр делится на 5')
else
WriteLn ('Сумма цифр не делится на 5');
ReadLn;
end.
Раздеваться было некогда. - обязательно нужно снимать верхнюю одежду (куртку, шапку и т.п.)
Я влетел в компьютерный класс. - нужно спокойно перемещаться по компьютерному залу, не бегая, не прыгая
Если Наталья Ю. это преподаватель или твой одноклассник/одногруппник - то ни в коем случае нельзя портить чужую работу/перезаписывать её/удалять
я достал бутерброд и перекусить - в комп. класс запрещено заходить с любой едой, напитками
Крошки,которые упали на клавиатуру,я стряхнул - нужно соблюдать правила гигиены и чистоты, к тому же, читайте выше
я выдернул шнур из розетки- ни в коем случае нельзя дёргать провода, шнуры, тем более из розетки, тем более выключать их таким
Я быстро выбежал из класса - нужно спокойно перемещаться по компьютерному залу, не бегая, не прыгая
