X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Нужен код, Pascal
RomaRiO
RomaRiO
Topic Starter сообщение 22.10.2009, 12:35; Ответить: RomaRiO
Сообщение #1


Оптимизатор Freelancer
*****

Группа: Active User
Сообщений: 952
Регистрация: 7.6.2008
Из: Прошлого
Поблагодарили: 146 раз
Репутация:   19  


Кто знает Pascal, помогите написать программу...

Задание:
Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.


Выполнение:
Она должна работать через case


Кто сможет помочь?
Мне нужен сам код написания этой программы...


--------------------
Все скрипты РУнета
Меня преследует -> БУМ :)
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
HeavyHell
HeavyHell
сообщение 22.10.2009, 12:54; Ответить: HeavyHell
Сообщение #2


Бывалый
****

Группа: User
Сообщений: 392
Регистрация: 26.12.2008
Поблагодарили: 95 раз
Репутация:   26  


десять строк.... вопрос в том что именно через кейс выбирать?


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
RomaRiO
RomaRiO
Topic Starter сообщение 22.10.2009, 12:59; Ответить: RomaRiO
Сообщение #3


Оптимизатор Freelancer
*****

Группа: Active User
Сообщений: 952
Регистрация: 7.6.2008
Из: Прошлого
Поблагодарили: 146 раз
Репутация:   19  


я знаю что там легко... Просто я Pascal не знаю sad.gif
В плане что выбирать?
В задание так написано и все... Наверно без разницы... главное что бы case участвовал...


--------------------
Все скрипты РУнета
Меня преследует -> БУМ :)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
zetx
zetx
сообщение 22.10.2009, 15:52; Ответить: zetx
Сообщение #4


Участник
***

Группа: Banned
Сообщений: 211
Регистрация: 9.8.2009
Из: Россия
Поблагодарили: 15 раз
Репутация:   8  


Я знаю паскаль.
В общем все просто. Ищем последнюю цифру числа. Возводим ее в квадрат. И последняя цифра числа возведенного в квадрат и будет ответом.
Могу закодить прогу минут через 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.


Я не проверял, ибо паскаля сейчас нет...

Замечание модератора:
Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней.
Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой
или обратитесь к любому из модераторов.


Сообщение отредактировал zetx - 22.10.2009, 19:51


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Нужен скрипт
0 Barselona 463 25.5.2018, 10:03
автор: Barselona
Открытая тема (нет новых ответов) Нужен крауд-специалист для наращивания трафика и ссылочного
0 Kiloan_Frost 277 22.5.2018, 15:31
автор: Kiloan_Frost
Открытая тема (нет новых ответов) Нужен импорт данных в Вордпресс (плагин WP All Import)
Надо настроить импорт данных в Вордпресс через плагин Wp All Import
1 mirmix 489 16.5.2018, 18:50
автор: adnr78
Открытая тема (нет новых ответов) Промо код Гугл Эдвордс 2000 рублей
Может кому то будет нужен
11 alllffa 3085 3.5.2018, 9:24
автор: novicius
Открытая тема (нет новых ответов) Нужен backend разработчик (PHP)
0 Jerard 522 27.4.2018, 1:30
автор: Jerard


 



RSS Текстовая версия Сейчас: 27.5.2018, 12:29
Дизайн