Найти кол-во чисел, кратных 5, трехзначных и сумму заканчивающих 9.(ПАСКАЛЬ)

Найти кол-во чисел, кратных 5, трехзначных и сумму оканчивающих 9.
(ПАСКАЛЬ)

Задать свой вопрос
1 ответ
Program F1tsku;
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.
Катюша Богачкина
Проверь, я могла где-то и ошибиться
Юленька Силинская
так-то все правильно, но там нужно сумму чисел оканчивающихся на 9, и с командами sum и count
Данил
Теперь понятно...
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт