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



 

Здравствуйте, гость (

| Вход | Регистрация )

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


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

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


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


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


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


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


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


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


--------------------
Все скрипты РУнета
Меня преследует -> БУМ :)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
zetx
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.


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

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


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


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Нужен сайт с автонаполнением по XML
1 REGNET 1133 7.3.2024, 15:08
автор: REGNET
Открытая тема (нет новых ответов) Нужен райтер на постоянку
13 Kiloan_Frost 3310 6.3.2024, 22:24
автор: vitaliraduga
Открытая тема (нет новых ответов) Нужен постинг в твиттер
3 uahomka 1703 20.2.2024, 1:00
автор: robot_yaga2
Открытая тема (нет новых ответов) Нужен исполнитель на постоянную основу для набора небольших текстов
19 Думающий 8800 9.2.2024, 16:04
автор: Думающий
Открытая тема (нет новых ответов) Тема имеет прикрепленные файлы[ClipAI] - Рерайт больше не нужен, забудьте про биржи статей!
Улучшенный бот для написания статей при помощи ИИ, и не только
25 alexmrml 9874 9.1.2024, 18:25
автор: alexmrml


 



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