Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus) - [8234] :: Прикладное программирование

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Anya181818 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору var a,b:integer; begin readln (a); while a>0 do begin b:=a mod 10; a:=a div 10; end; writeln ('первая цифра числа: ',b); readln; end.
	Всего записей: 17 \| Зарегистр. 19-10-2013 \| Отправлено: 19:43 10-12-2013 \| Исправлено: Anya181818, 19:47 10-12-2013

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC