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

Составте программу на паскале для решения следующей .введите с клавиатуры 3 числа: а, в и с. если а и с кратны 5,а в не кратно,то все числа замените и квадратами и выведите результат на экран. если только в кратно 5,то увеличьте все числа на 10 и выведите результат на экран. иначе, найдите и выведите среднее арифметическое этих чисел.

👇
Ответ:
MrWolf1244
MrWolf1244
24.11.2021
//PascalABC.NET 3.2 cборка 1318

Var
  a,b,c:integer;
begin
readln(a,b,c);
if (a mod 5=0) and (c mod 5=0) and (b mod 5<>0) then
  writeln(sqr(a),' ',sqr(b),' ',sqr(c)) else
  if (a mod 5<>0) and (c mod 5<>0) and (b mod 5=0) then
    writeln(a+10,' ',b+10,' ',c+10)
      else
        writeln((a+b+c)/3);
end.

Пример ввода:
15
5
34
Пример вывода:
18
4,7(67 оценок)
Открыть все ответы
Ответ:
pRoToTyPe95wF
pRoToTyPe95wF
24.11.2021

Во-первых нам нужны только четное количество цифр в двоичном числе, если учесть максимальное 25160=110001001001000, т.е. мы идем от 2 до 14 цифр через 2.

1 цифра всегда единица. значит остается n нулей и n-1 единиц. Теперь по формуле перестановки с повторениями(можешь почитать в инете), вычисляем последовательно:

1) 2 цифры = 1 вариант

2) 4 цифры = 3 варианта

3) 6 цифры = 10 варианта

4) 8 цифры = 35 варианта

5) 10 цифры = 126 варианта

6) 12 цифры = 462 варианта

7) 14 цифры = 1716 варианта

сложим и получим 2353 варианта.

4,7(93 оценок)
Ответ:
kessaa65
kessaa65
24.11.2021

PROFIT?

 

program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.

4,7(57 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ