Ответ:
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.
Чтобы это узнать надо числа 56 умножить на 12 и получится 672 символа было в тексте.
Не знаю, кто тебе сказал, что нужны расчеты, но эта задача - на логику.
Допустим, правду сказал Ваня. Тогда он и разбил окно.
Но тогда и Коля сказал правду - это не он и не Саша. Противоречие.
Допустим, правду сказал Коля - это не он и не Саша. То есть это Ваня.
Но тогда и Ваня тоже сказал правду. Опять противоречие.
Значит, правду сказал Саша - это не он и не Ваня.
Окно разбил Коля.