1. Информатика
  2. Ввести 2 числа.если их

Ввести 2 числа.если их среднее больше 10,то вывести на экран "ура! "в противном случае ввести на экран"караул! "

новичок535 новичок535    1   02.06.2019 11:10    3

Ответы
Logutova Logutova  03.07.2020 07:56
Var a,b:real;
begin 
  write('введите 2 числа:'); 
  read(a,b); 
  if ((a+b)/2)>10 then 
  write('Ура!') 
  else 
  write('Караул!');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Травка58 Травка58  13.06.2019 04:30
Нарисуйте логическую схему для следующего логического выражения и определите значения сигналов на входах и выходе: f=a& b v c v a....
AgeraClassik AgeraClassik  04.07.2019 18:30
Пусть дано некоторое целое число. требуется составить программу, которая выводит на экран монитора сообщение о том, какое это число: положительное либо отрицательное. и если...
polinavorkuta polinavorkuta  04.07.2019 18:30
Даны коэффициенты a и b линейного уравнения ax+b=0. требуется найти его корни, если они есть. программа....
Modoki Modoki  04.07.2019 18:30
Найдите значение переменной x если x=a 3(d-12))*(c-5k),а значения переменных a,d,c,k с клавиатуры....
marinadm9889 marinadm9889  04.07.2019 18:40
Для ввода какой информации предназначены микрофон сканер цифровая камера...
ElenaFevralV ElenaFevralV  04.07.2019 18:40
Продолжите сказку жили были клавиатура процессор и память. жили и работали дружно пока не за спорили кто их них главный...
587989nm 587989nm  04.07.2019 18:50
Перевести в десятичную систему двоичные числа 1000011110101 1010010111011 перевести в двоичную систему десятичные числа 456 24 4095...
никотян7 никотян7  04.07.2019 18:50
Составить программу вычисления значения функции y=3x-8...
Метеор73 Метеор73  04.07.2019 18:50
Каждый файл имеет собственное название и *** *** ***. создание файла и папки, переименование, *** ***. для создания папки необходимо из контекстного меню *** *** о папке и...
turovyuriy turovyuriy  04.07.2019 18:50
Переведите число 1001 из двоичной системы счисоления в десетичною. 15 . это !...

Популярные вопросы