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;
Поделитесь своими знаниями, ответьте на вопрос:
1. в таблице запросы и количество найденных по ним страниц некоторого сегмента сети интернет: запрос найдено страниц (в тысячах) шоколад + зефир 15000 шоколад & зефир 8000 зефир 12000 какое количество страниц (в тысячах) будет найдено по запросу шоколад? решите , используя круги эйлера.