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.


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

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


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Нужен человек для поиска клиентов за процент от сделки
3 Evgos 511 Вчера, 22:34
автор: Yepperoni
Открытая тема (нет новых ответов) Нужен домен, не дорого
Подскажите домен для хостинга
20 SimpleHosting 2651 14.12.2017, 0:24
автор: Ley
Открытая тема (нет новых ответов) Нужен Product Designer cо знанием английского
0 SpaceGray 301 12.12.2017, 23:37
автор: SpaceGray
Открытая тема (нет новых ответов) Нужен Pay Pal
2 Timka 666 11.12.2017, 21:35
автор: rumba
Открытая тема (нет новых ответов) Нужен рерайтер новостей на постоянную работу
3 FUTP 409 10.12.2017, 0:29
автор: contentos


 



RSS Текстовая версия Сейчас: 16.12.2017, 0:16
Дизайн