tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решить с паскаль №3.определить,
Решить с паскаль №3.определить, является ли слово "перевертышем", №4.печать всех делителей натурального числа a, №5.печать всех совершенных чисел до 10000.
suskoahdvej5
1 18.09.2019 19:50
0
Ответы
kira757
21.08.2020 11:17
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
ответ:
6 28 496 8128
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
karinasoskova
05.05.2020 12:52
До ть будь ласка в. Інформатика 7 клас в програмі phyton! Напишіть програму, яка розв’язує лінійне рівняння ax=b. Значення a та b відомі (вводяться з клавіатури),...
SashaRary
18.05.2019 23:36
Создайте класс «кошка», который дает кошке разнообразные виды пищи, что дает ей уровень питательности (в%). вот список продуктов питания (moloko, myshka, ryba, myaso)....
BlaBla1aquamarine
18.05.2019 23:24
C#! создайте блочную схему поиска значений функции для функции f (x) = sin x, которая смещается от a к b с переменной x....
ВикаКотик283627
01.03.2021 15:32
у меня сор буду благодарен! 7 класс если что....
Kuса
01.03.2021 15:32
Python d=1/7a³b-2ab²(a+b) пожайлуста...
Elvirashka
01.03.2021 15:33
Аргумент Разделитель как пишется на языке Python?int= print= sep= input=...
gasymov1974
01.03.2021 15:33
Кто первый создал мобильный(сенсорный) телефон и в каком году...
WiTeKHasky
08.05.2020 13:23
За что отвечает вкладка скрипт в программе Scratch...
ERAZOR
15.03.2021 12:48
Рассмотри рисунок напиши 1. Какой используется датчик? 2. Куда повернет робот? ...
карина2029
15.03.2021 12:47
1 #incĺude clocale 2Int main()3Cout ab 4{5FLOAT c,c1,c2;6Setlocale(LC_ALL, KAZ )7)...
Популярные вопросы
Минус 3/4 + 0,6 + - 2 5/6 закрываются...
2
Як розташовані магнітні полюси Землі відносно географічних ?...
3
Биография Александра Сергеевича Пушкина КРАТКОЕ СОДЕРЖАНИЕ!!....
1
У 2. Оқылым мәтініндегі морфологиялық ұстаным бойынша жасалған...
3
What do you like? What s your favourite subject? What s your favourite...
2
Present simple vs Present contiunuous объясните использования выделенных...
2
Сочинение на тему ,,Моя любимая книга 15 предложений. за спам кидаю...
1
Нужно задать 10 вопросов к тексту . Children start school at the...
2
Прочитайте фрагмент джерела. » 1. Чи може офіційний документ вищого...
1
Чи відноситься огонь до живої природи?...
1
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
ответ:
6 28 496 8128