Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
Вернуться
Тема: помогите почему задача не проходит
1
  1  Беляев Сергей Николаевич, 04 октября 2018 г. 19:53:52
      В условии задачи сказано, что вывести нужно только одно целое число, а ваша программа выводит много лишних символов, а именно тех предложений о вводе уберите первый write, а во втором оставьте вывод одной лишь переменной a.
  2  Митрофанова Алина Игоревна, 04 октября 2018 г. 18:42:16
      program chisla1110;
var a, n:integer;
begin
write('Введите натуральное число: ');
readln(n);
a := n mod 10;
Writeln('Последняя цифра числа = ',a);
end.
1

Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!

Красноярский краевой Дворец пионеров, (c)2006 - 2018, ICQ: 151483, E-mail: admin@acmp.ru