напишите пожалуйста программу в паскале написать программу для решения задачи ввести с клавиатуры два числа если их сумма больше 15 то ввести слово да
10-11 класс
|
иначе нет
Program srav;
var a,b,c:real;
begin
Write ('Введите число а'); Read (a);
Write ('Введите число b'); Read (b);
c:=a+b;
If c>15
Then write ('да')
else write ('нет');
end.
Если не ошибаюсь, то так=)
Другие вопросы из категории
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
б)102байт в)2 в 10 степени байт г)1000 бит
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Например: если я ввожу 2 должно выйти март
Например: если я ввожу 2 должно выйти март
информатике программирование.
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.