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

Скласти програму (в Паскалі), що виводить на друк всі двоцифрові числа, що кратні числу 7.

Показать ответ
Ответ:
Роксолана123456789
Роксолана123456789
09.01.2020 05:55

Объяснение:

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

2)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

3)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

4)

var i,n,s:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[i]:8); writeln;

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;

writeln('Для выхода нажмите Enter'); readln

end.

0,0(0 оценок)
Ответ:
ност1
ност1
24.05.2023 23:05

К сожалению, в процессе революции в науке, происходившей с понятиями времени, энергии, импульса и массы, Эйнштейн, кроме прочего, оставил после себя два различных и противоречащих друг другу определения массы. Из-за этого всё, что мы говорим и имеем в виду, можно интерпретировать двумя очень разными При этом непосредственно в физике никакой путаницы нет. Специалисты точно знают, о чём идёт речь, и знают, как делать предсказания и использовать подходящие уравнения. Весь во только в значении самого слова. Но слова важны, особенно когда мы беседуем о физике с людьми, не являющимися экспертами в этой области, и с учениками, для которых уравнения пока ещё не полностью понятны.

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