tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Выведите числа , являющиеся квадратами
Выведите числа , являющиеся квадратами двухзначных чисел. паскаль !
smail130
3 21.07.2019 12:03
0
Ответы
davidgjggjj
07.09.2020 17:59
Var
i,d,e:integer;
begin
for i:=10 to 99 do
begin
d:=i div 10; e:=i mod 10;
if ((sqr(d)+sqr(e)) mod 13)= 0 then Write(i,' ')
end
end.
Результат выполнения программы:
15 18 23 32 46 47 51 64 69 74 79 81 96 97
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
liliyazaleeva12
17.06.2019 23:10
Сколько минимум байт нужно чтобы закодировать иероглифы китайского языка если их 85568?...
vaco1taps
26.08.2022 10:33
Два сторожевых отряда расположенных на большом расстоянии друг от друга условились передавать друг другу сообщения с сигнальных ракет красного и зеленого уветов сколько различных...
sashacom13
26.08.2022 02:02
Язык python Напиши программу подсчёта зарплаты тренера Тренер спортивного комплекса может работать на полную занятость или гибкое количество часов. Базовая оплата тренера с полной...
ArtGame23
25.08.2022 04:00
HTML, нужно составить вот такую таблицу !...
vampirmixa
24.08.2022 23:27
Один равлик лізе на палицю висотою А см зі швидкістю 2 см / год., а другий - на іншу палицю висотою К см. зі швидкістю 3 см/год. Хто з них швидше залізе на вершечок? В ПАСКАЛ...
gendzhimir
23.08.2022 04:02
Числовая константа 300 000 000 может быть записана в виде: a. 0,3E+9b. 30,0E+7c. 3,0E+8d. 3,0E+6...
Moldir94
22.08.2022 22:17
Найдите среднее арифметическое чисел 2368, 6С16 и 1110102. ответ запишите в десятичной системе счисления....
okunevap302
05.05.2019 12:24
Что тут не правильно? а) десятичный код прописной буквы на 32 больше кода соответствующей строчной буквы. б) связи между пропичных и строчных букв не существует. в) десятичнй код...
ДарьяРэя
22.01.2020 09:55
Программа, которая печатает все числа кратные 6 на отрезке от 1 до 50...
КАТЯЯЯЯЯ111
18.11.2019 15:56
Написать программу в паскале: вводятся два натуральных числа - n и s. требуется напечатать по одному разу все варианты размена n монетами суммы в s рублей. варианты, отличающиеся...
Популярные вопросы
упростите выражение и найти его значение :2X(3X-1)-5(X²-1)-X²при Х=0,2...
1
Установите соответствие: Сила тяжести 1Вес тела 2Формула силы тяжести 3Формула...
3
Объясните, почему Робин гуду удалось перехитрить шерифа?...
2
The Coat Guard warned the swimmerrs to look___sharks? 1. For. 2 after. 3. Out...
3
Task 2. Write in, at, on. DecemberFridayChristmaswinterthe morning1991 мне...
1
Подбери утверждения к терминам. Атом Атомный номер Ядро атома Нейтрон Электрон...
3
3 Find the past simple forms of these verbs inthe texts. Then choose the correct...
1
Напиши соченение на 5-8 предложений по плану о Сказке о мёртвой царевне и семи...
3
Персидская империя скотоводство кратко...
3
Побег это- А) Участок корня B) Участок листа C) Стебель, листья и почки D) стебель...
3
i,d,e:integer;
begin
for i:=10 to 99 do
begin
d:=i div 10; e:=i mod 10;
if ((sqr(d)+sqr(e)) mod 13)= 0 then Write(i,' ')
end
end.
Результат выполнения программы:
15 18 23 32 46 47 51 64 69 74 79 81 96 97