Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 2
1

Среди всех трёхзначных чисел найти такие, в записи которых есть 2 подряд идущие цифры, образующие число равно полному квадрату

11.12.2013, 02:51. Просмотров 2229. Ответов 3
Метки нет (Все метки)

Прошу Вас помочь с решением данной задачи!

Важно!
Перед оказанием помощи прочитайте данное условие:

Можно использовать только операторы For, If, While, Repeat, Case, Div Mod.


Условие самого задания:

Среди всех трёхзначных чисел найти такие, в записи которых есть 2 подряд идущие цифры, образующие число равно полному квадрату.


Например:

163 - 16
449 - 49
169 - 16
364 - 36 64
401 - 01

Вывести их на экран в таком виде, что и в приведённом примере.

При этом числа с двумя полными квадратами в записи (типа 364) вывести зелёным цветом, а остальные жёлтым.

Вывести также общее кол-во найденных трёхзначных чисел.

Сколько среди них чисел с двумя полными квадратами в записи (типа 364)?


Замечание:

Прочитайте в Help про функции Trunc, Round, Int и Frac.
Это поможет вам справиться с проблемой: как определить, является ли число полным квадратом. Используйте одну из них.


==================
Заранее Благодарю Вас за помощь!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2013, 02:51
Ответы с готовыми решениями:

Найти сумму всех трехзначных чисел, в записи которых есть четные цифры
5)написать программу находящую сумму всех трехзначных чисел, в записи которых есть четные цифры

Среди трехзначных чисел найти такие которые делятся на цифры из которых состоят
Написать исходный текст программы.Среди трехзначных чисел найти такие которые делятся на цифры из...

Вывести на экран такие трехзначные числа, у которых произведение 1 и 3 цифры равно квадрату 3 цифры
Вывести на экран такие трехзначные числа, у которых произведение 1 и 3 цифры равно квадрату 3...

Вывести на экран такие трехзначные числа, у которых произведение 1 и 2 цифры равно квадрату 3 цифры
Не могу написать программу, подскажите пожалуйста, буду благодарен Нужно: вывести на экран такие...

__________________
3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30896 / 20213 / 7881
Регистрация: 22.10.2011
Сообщений: 35,095
Записей в блоге: 6
11.12.2013, 11:36 2
Тут даже Trunc/Rount/Inc/Frac не нужны, строго целочисленная арифметика:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
var
  n, k, i, part : Integer;
  b : boolean;
begin
  for n := 100 to 999 do
  begin
    k := 0;
 
    part := n mod 100;
    b := false;
    for i := 1 to 9 do
      if (i*i = part) then b := true;
    if b then k := k + 1;
 
    part := n div 10;
    b := false;
    for i := 1 to 9 do
      if (i*i = part) then b := true;
    if b then k := k + 1;
 
    if k = 0 then
    else
    begin
      if k = 1 then textcolor(yellow)
      else textcolor(lightgreen);
      write(n:4);
    end;
 
  end;
  writeln;
end.
1
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 2
11.12.2013, 11:54  [ТС] 3
Благодарю Вас!
0
Платежеспособный зверь
8737 / 4159 / 1604
Регистрация: 28.10.2009
Сообщений: 11,263
11.12.2013, 19:40 4
А так по-моему в 10 раз короче:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
i,j,s1,s2:integer;
begin
for i:=0 to 9 do
for j:=1 to 9 do
if j*j>9 then
begin
s1:=i*100+j*j;
if s1>99 then write(s1:4);
s2:=j*j*10+i;
write (s2:4);
end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2013, 19:40

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Ввести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры​
Вывести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2...

Ввести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры​
Вывести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры​

Подсчитать количество всех трехзначных чисел, в записи которых нет цифры 8. (Используйте логическую функцию определяющую, содержит ли данное число
Подсчитать количество всех трехзначных чисел, в записи которых нет цифры 8. (Используйте логическую...

Найти из всех четырехзначных чисел, такие числа, в записи которых все цифры различны
Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.