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

Внимательно рассмотрите числа, расположенные в каждом из рядов , и определите, какое число является лишним. будьте готовы обосновать свой выбор а) 2 3 6 7 11 б) 18 12 3 29 45 28 в) 10 20 30 36 40 50 г) 72 62 52 45 32 82 д) 24 29 22 37 25 28 е) 1 2 3 5 6 7

Показать ответ
Ответ:
Love25252525
Love25252525
02.05.2022 14:13
Program factors;
var
num, sum : word;
st : string;
j : byte;

function fact(a : byte) : word;
var
res : word;
i : byte;
begin
res:=1;
for i:=1 to a do
res := res*i;

writeln(a, '!=', res);

fact := res;
end;

function vl(a : char) : byte;
var
res : byte;
begin
val(a, res);
vl := res;
end;

begin
write('Введите число: ');
readln (num);
str(num, st);
sum:=0;
for j:=1 to length(st) do
sum := sum + fact(vl(st[j]));
writeln('Сумма факториалов цифр числа равна: ', sum);
end.

Тестовый прогон программы:

Введите число: 125
1!=1
2!=2
5!=120
Сумма факториалов цифр числа равна: 123
0,0(0 оценок)
Ответ:
Lups
Lups
09.01.2023 01:40
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 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота