М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
TheKristinasGames
TheKristinasGames
01.04.2020 03:08 •  Информатика

дано пятизначное число. определить сумму второй и пятой цифры. 2 дано пятизначное число. определить сумму второй и четвёртой цифрой. 3 написать программу в которой подсчитывается количество чётных чисел среди трёх, введёных с клавиатуры

👇
Ответ:
№2.
var a,b: integer;
beginreadln(a);
b:=a;
a:= (a div 10) mod 10;
b:= (b div 1000) mod 10;
writeln(b+a);
end.

№1.
var a,b: integer;
beginreadln(a);
b:=a;
a:= a  mod 10;
b:= (b div 1000) mod 10;
writeln(b+a);
end.
4,4(81 оценок)
Ответ:
mark123445
mark123445
01.04.2020
№ 1-2

var x, t, f, l, sum, sum2: integer;
begin
write('Введите x: ');
readln(x);
if ( x < 10000 ) OR ( x > 99999 ) then
writeln('Ошибка. Число не пятизначное!')
else
begin
l := x mod 10;
t := (x div 1000 mod 10);
sum := l + t;
f := (x div 10 mod 10);
sum2 := t + f;
writeln('Сумма второй и последней цифры: ', sum);
writeln('Сумма второй и четвертой цифры: ', sum2);
end;
end.

№3

var a, b, c, rez: integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
rez := 0;
if a mod 2 = 0 then inc(rez);
if b mod 2 = 0 then inc(rez);
if c mod 2 = 0 then inc(rez);
writeln('Количество четных чисел: ', rez);
end.
4,8(91 оценок)
Открыть все ответы
Ответ:
xkhs1sjsiXjjs
xkhs1sjsiXjjs
01.04.2020
Python 3.5:
a, b, c, d = list(map(float, input().split()))
print(False if (c == d) else ((a + b + c + d)/(c - d)).is_integer())

Сначала вводим 4 вещественных числа a, b, c, d.
Если c = d, то ответ False - частное будет нехорошим, поскольку в знаменателе будет 0. Если c не равно d, проверяем при встроенной функции is_integer(), что (a + b + c + d)/(c - d) - целое число. 

Если a, b, c, d - целые, то float в решении можно заменить на int, а проверку при на проверку, что остаток от деления равен нулю, (a + b + c + d) % (c - d) == 0.
4,6(97 оценок)
Ответ:
BlackCat20101
BlackCat20101
01.04.2020
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
  (var ma,var mb):=(a.Average,b.Average); // средние арифметические
  var s:=ma+mb; // их сумма
  Writeln('Среднее арифметическое массива а: ',ma);
  Writeln('Среднее арифметическое массива b: ',mb);
  Writeln('Их сумма: ',s)
end.

Пример
n= 12
9 -55 -14 -60 -90 56 60 -89 -9 18 -37 -29
n= 15
47 -53 4 22 38 -46 -74 -77 -74 -67 -67 -93 73 5 -16
Среднее арифметическое массива а: -20
Среднее арифметическое массива b: -25.2
Их сумма: -45.2
4,8(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ