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

НАДО Введіть з клавіатури ціле число А. Надрукуйте в рядок всі цілі тризначні числа, які починаються та закінчуються на цифру А та знайдіть їх кількість.
2. Введіть з клавіатури n будь-яких цілих чисел. Знайдіть середнє арифметичне двозначних.
3. Ввести з клавіатури n будь-яких цілих чисел. Чи всі вони більші 10?

Показать ответ
Ответ:
KAngelAleksandrovna
KAngelAleksandrovna
24.04.2023 00:51
1)
var a, b, c: integer; sr:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
sr:=(a+b+c)/3;
writeln('Среднее арифметическое = ',sr);
end.

Пример:
a = 5
b = 2
c = 8
Среднее арифметическое = 5

2)
var a, b, c, s : integer; 
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
s:=0;
if a mod 2 = 0 then s:=s+a;
if b mod 2 = 0 then s:=s+b;
if c mod 2 = 0 then s:=s+c;
writeln('Сумма четных чисел = ',s);
end.

Пример:
a = 8
b = 5
c = 2
Сумма четных чисел = 10

3)
var a, b, c, max, min : integer; 
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('max = ',max,' min = ',min,'  Среднее = ',(max+min)/2);
end.

Пример:
a = 5
b = 2
c = 8
max = 8 min = 2  Среднее = 5
0,0(0 оценок)
Ответ:
NEW4IK
NEW4IK
31.08.2021 23:44

В программе MS Word создайте новый документ. Файл сохраните в папке класса с именем Фамилия.docx.

В созданный документ вставьте скриншот рабочего стола, в случае необходимости измените размер изображения, на вкладке Формат в группе Размер..

На вкладке Формат в группе Упорядочить выберите Обтекание текстом - Вокруг рамки , затем расположите рисунок в центре листа.

На вкладке Вставка в группе Иллюстрации выберите подходящие Фигуры и подпишите основные элементы Рабочего стола.

Объяснение:

доступно ? Это просто действия с компьютером и программой Microsoft Word. Единственное, что тут можно не знать, это как делать скриншот, и это кнопка 'Print screen'(на клавиатуре)

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