pascal - Форум
Пятница, 09.12.2016, 06:50
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » pascal
pascal
PASCAL26Дата: Четверг, 21.01.2010, 13:12 | Сообщение # 1
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
Люди помогите это срочно! help Вот условие
Составить программу, которая устанавливает, какие числа из промежутка от a до b можно представить в виде суммы двух квадратов чисел. a и b вводятся с клавиатуры.


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
ignorerДата: Четверг, 21.01.2010, 14:26 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот решение на pascalabc:
Code
var a, b, c, x, y, t : integer;
begin
  cls;
  read(a, b);
  for c:=a to b do
   begin
   x:=1; y:=trunc(sqrt(c));
   repeat
    t:=x*x+y*y;
    if t>c then y:=y-1 else
    if t<c then x:=x+1 else
     begin
      write(c, ' ');
      break;
     end;
   until x=y;
  end;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » pascal
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016