Помощник
|
Нужен код, Pascal |
RomaRiO
|
Сообщение
#1
|
||
|
|
||
|
|||
HeavyHell |
22.10.2009, 12:54;
Ответить: HeavyHell
Сообщение
#2
|
|
десять строк.... вопрос в том что именно через кейс выбирать?
-------------------- |
|
|
RomaRiO
|
Сообщение
#3
|
|
я знаю что там легко... Просто я Pascal не знаю
В плане что выбирать? В задание так написано и все... Наверно без разницы... главное что бы case участвовал... -------------------- |
|
|
zetx |
22.10.2009, 15:52;
Ответить: zetx
Сообщение
#4
|
|
|
Я знаю паскаль.
В общем все просто. Ищем последнюю цифру числа. Возводим ее в квадрат. И последняя цифра числа возведенного в квадрат и будет ответом. Могу закодить прогу минут через 10 на паскале. 0^2=0 1^2=1 2^2=4 3^2=9 4^2=16 5^2=25 6^2=36 7^2=49 8^2=64 9^2=81 Итак, прога: var a,otvet:integer; begin writeln('Введите число:'); readln(a); a := a mod 10; case a of 0 : otvet:=0; 1 : otvet:=1; 2 : otvet:=4; 3 : otvet:=9; 4 : otvet:=6; 5 : otvet:=5; 6 : otvet:=6; 7 : otvet:=9; 8 : otvet:=4; 9 : otvet:=1; end; writeln('Последняя цифра квадрата заданного числа:'); write (otvet); readln; end. Я не проверял, ибо паскаля сейчас нет...
Сообщение отредактировал zetx - 22.10.2009, 19:51 |
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Нужен кодер, чтобы пофиксить ошибку Wordpress после переноса сайта | 0 | Alex-777 | 850 | 7.4.2024, 18:05 автор: Alex-777 |
|
Нужен исполнитель на постоянную основу для набора небольших текстов | 20 | Думающий | 9286 | 2.4.2024, 18:05 автор: Думающий |
|
Нужен сайт с автонаполнением по XML | 1 | REGNET | 1225 | 7.3.2024, 15:08 автор: REGNET |
|
Нужен райтер на постоянку | 13 | Kiloan_Frost | 3416 | 6.3.2024, 22:24 автор: vitaliraduga |
|
Нужен постинг в твиттер | 3 | uahomka | 1733 | 20.2.2024, 1:00 автор: robot_yaga2 |
Текстовая версия | Сейчас: 19.4.2024, 15:45 |