Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
EvaVergun
18.08.2022 10:50 •
Информатика
Перечислите виды поворотов, используемых в программе, изоб- раженной на рисунке 3.18.
я в этом вообще не шарю
👇
Увидеть ответ
Ответ:
Kotikocerdechko
18.08.2022
Объяснение:
тулоупшклктедккщакбк4у
4,5
(3 оценок)
Открыть все ответы
Ответ:
amina352
18.08.2022
Var
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.
4,4
(69 оценок)
Ответ:
списыватель147
18.08.2022
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
procedure SUM(x,y,z:array of integer);
begin
for var i:=0 to z.Length-1 do z[i]:=x[i]+y[i]
end;
procedure ArrPrint(x:array of integer);
// никому она не нужна, на раз попросили...
begin
x.Println(', ');
end;
procedure ArrInit(var x:array of integer;n,from,&to:integer);
// никому она не нужна, на раз попросили...
begin
x:=ArrRandom(n,from,&to)
end;
begin
var a,b,c:array of integer;
ArrInit(a,15,10,30); ArrPrint(a);
ArrInit(b,15,25,60); ArrPrint(b);
SetLength(c,15);
SUM(a,b,c); ArrPrint(c)
end.
Тестовое решение:
23, 15, 13, 23, 22, 24, 20, 27, 29, 19, 29, 28, 30, 10, 24
48, 32, 31, 59, 36, 34, 47, 28, 42, 30, 40, 58, 25, 30, 33
71, 47, 44, 82, 58, 58, 67, 55, 71, 49, 69, 86, 55, 40, 57
4,4
(61 оценок)
Это интересно:
В
Взаимоотношения
17.05.2021
Как правильно флиртовать с Раками: знак зодиака и любовные отношения...
03.03.2023
Как пригласить девочку на свидание в пятом классе...
И
Искусство-и-развлечения
30.04.2020
Как стать сопрано, если вы альт (для девушек)...
Х
Хобби-и-рукоделие
31.03.2023
Чистка масляных картины: все, что нужно знать, чтобы сохранить ее надолго...
К
Кулинария-и-гостеприимство
02.01.2021
Как устроить первоклассную вечеринку...
Д
Дом-и-сад
04.01.2022
Солнечная энергия: идеальное решение для подогрева бассейна...
К
Компьютеры-и-электроника
30.11.2021
Apple Macintosh или другие ПК: как определиться с выбором...
Х
Хобби-и-рукоделие
06.03.2020
Как правильно драпировать платье: советы стилистов и примеры вариантов...
И
Искусство-и-развлечения
21.05.2021
Как играть в бильярд как профи?...
И
Искусство-и-развлечения
11.03.2023
Как стильно одеться в стиле Гарри Поттера...
Новые ответы от MOGZ: Информатика
mariyburova2001
01.02.2020
Для какого из указанных значений числа x истинно выражение (x 1) и не (x 2)? 1)1 2)2 3)3 4)4...
Sanя7184214
11.02.2023
Ваня стал администратором сервера. И на его сервере много игроков. Ваня - добрый человек, поэтому он следит за всеми сообщениями. Сообщение является веселым, если веселых смайликов...
Vasiuk1055
03.11.2022
Мегагерцпен және гигагерцпен өлшенетін процессор қалай аталады...
mary309
26.02.2020
Учитель работал в каталоге D:\Уроки\6 класс\Практические работы. Затем перешёл в дереве каталогов на уровень выше, спустился в подкаталог Презентации и удалил из него файл Введение.ppt....
Ромчик55123
03.05.2023
Составить блок-схему, которая выводит первые 10 степеней числа 2 и подсчитывает среднее геометрическое значение из этих чисел очень нужно!...
sie27
24.05.2022
Как скопировать текст в в буфер обмена....
konfetkamailrup0acjk
04.08.2021
1. Сумма чисел 141(8) и 100111(2) равна 1) 1А(16) 2) 200(8) 3) 10101000(2) 4) 88(16) 2. Чему равно число x, если выполнено равенство : 14(x)+26(2x)=13(6x) 3. Решите уравнение...
Сhubby
08.10.2020
Вопросы к зачету: 1. Знаковая система 2. Естественный язык 3. Формальный язык 4. Длина кода 5. Перекодирование 6. Количество информации 7. Формула 8. Единицы измерения 9. Перевод...
keke717
04.07.2021
(turbo pascal) решите не фига не понимаю как с этой программой их решать 1. необходимо задать формулу (a+b)*(m-k) /b-k. переменные вводит пользователь. при знаменателе равном...
limka13
04.07.2021
Найти max и min число в массиве и вывести его индекс.(pascal)...
MOGZ ответил
Понятие гражданственности связано с соблюдением законов и активным участием...
У кубі ABCDA1B1C1D1 знайдіть градусну міру кута між прямими AB1 і CD1...
4 My mum does all her shopping o 5. The l is a gereat source of information...
Упражнение 28. Спишите предложения. Раскрывая скобки, выбирайте подходящий...
LULU 323. Маржан дүңгіршектен бағасы 80 тг лотерея билеттерін неме- қайтаратын...
Би сөзіне сөзжұмбақ тапқан а берем...
Яка причина зміни дня і ночі на Землі?...
) əgər a-b=-1,5, onda 1) a b2) a b. 3) a b4)a=b...
2 Look at the words in bold in the text. What kind of words (noun or verb)...
Теплохід ішов за течією зі швидкістю 18 1/4 км/год, швидкість течії — 2 1/2...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Объяснение:
тулоупшклктедккщакбк4у