В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
анарка3
анарка3
13.05.2022 02:10 •  Информатика

Даны 4 программы. опишите своими словами, что они делают. а) const n = 30; var a: array[1..n] of integer; i: integer; begin for i : = 1 to n do a[i] : = i; for i : = 1 to n do writeln(a[i]); end. б) const n = 30; var a: array[1..n] of integer; i: integer; begin for i : = 1 to n do if i mod 2 < > 0 then a[i] : = 1 else a[i] : = 0; for i : = 1 to n do writeln(a[i]); end. в) const n = 10; var a: array[1..n] of integer; i, k: integer; begin for i : = 1 to n do readln(a[i]); k : = 0; for i : = 1 to n do if a[i] = 0 then k : = k + 1; writeln(k); end. г) const n = 10; var a: array[1..n] of integer; i, k, sum: integer; begin for i : = 1 to n do readln(a[i]); k : = 0; sum : = 0; for i : = 1 to n do if a[i] > 0 then begin k : = k + 1; sum : = sum + a[i]; end; writeln(k, sum: 5); end.

Показать ответ
Ответ:
залупа22223332323233
залупа22223332323233
01.10.2020 01:32

a) пишет числа от 1 до 30.

б) в числах от 1 до 30, если i удовлетворяет условию i делится на 2, при этом не равен 0, то пишет 1. В других случаях 0.

в) пишет числа от 1 до 10, далее ты вводишь a(i), если оно удовлетворяет условию a(i)=0, то к k прибавляем 1 и пишется k.

Думаю

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота