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

Написать программу на языке программирования Паскаль
1. Найти разность, сумму и произведение двух значений переменных.
2. Ввести два числа. Вычесть из большего меньшее.​

👇
Ответ:
akhmedkhatataev95
akhmedkhatataev95
24.09.2020

Объяснение:

1.

var

 a,b:real;

begin

 read(a);

 read(b);

 writeln(a-b);

 writeln(a+b);

 writeln(a*b);

end.

2.

var

 a,b:real;

begin

 read(a);

 read(b);

 if a>b then writeln(a-b) else writeln(b-a);

end.

4,8(80 оценок)
Открыть все ответы
Ответ:
saltanatsultan
saltanatsultan
24.09.2020

a = int(input('Введите количество друзей:')) #вводим количетсво друзей

name = [] # создаем пустой список

age = 0  

for i in range(a):  # проходим по колисчетсву друзей

   q = input('Введите имя и возраст друга через пробел:').split()  # вводим имя и возраст и розбиваем их отдельно

   name.append(q[0])  # добавляем имя в список

   age = age + int(q[1])  # сумируем весь возраст

age = age / a  # находим средний возраст

if age<10:   # если меньше 10 то выводим возраст

   print(age)

elif age>10:   # если больше 10

   print(age)   #выводим возраст

   for b in name:  # обходим список с именами

       print(b)   # выводим имя

Объяснение:

4,8(17 оценок)
Ответ:
potochnystanis
potochnystanis
24.09.2020
Var a1,a2,a3,a4,a5,max: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1>a2) then max:= a1else max:=a2;
if (a2>a3) then max:=a2else max:=a3;
if (a3>a4) then max:=a3else max:=a4;
if (a4>a5) then max:=a4else max:=a5; 
  end;
writeln (max);
end. 
Аналогично с минимальным числом.
var a1,a2,a3,a4,a5,min: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1<a2) then min:= a1else min:=a2;
if (a2<a3) then min:=a2else min:=a3;
if (a3<a4) then min:=a3else min:=a4;
if (a4<a5) then min:=a4else min:=a5; 
  end;
writeln (min);
end.  
Можно так же решить с массива, если нужно пишите.
4,4(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ