........Да, съедобный........
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
Решение
По условию задачи, должно выполняться следующее требование
A* B = 77, где A и B - количество мальчиков или девочек в классе, найдём из уравнения A
A = 77 : B Из уравнения очевидно, что B - может принимать значения 7 или 11, тогда A -тоже принимает какое- нибудь из этих значений.
Вывод: количество мальчиков или девочек в классе - 7 или 11. В сумме дают
7 +11 = 18
Ответ: в классе 18 человек.
Барселона. Правы был Леонид и Виктор
var
n, n1, n2, n3: Integer;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if not ((n >= 100) and (n <= 999)) then begin
Writeln ('Число не является трехзначным!');
Exit;
end;
n1 := n div 100;
n2 := (n div 10) mod 10;
n3 := n mod 10;
Writeln ('Среднее арифметическое цифр = ' + FloatToStr ((n1 + n2 + n3) / 3));
end;