ПОМОГИТЕ ПОЖАЛУЙСТА!!!Заданы длины a,b,c и d четырех отрезков прямой. Проверьте могут ли отрезки быть
5-9 класс
|
сторонами квадрата, прямоугольника.
Program primer;
Uses crt;
var a,b,c,d: real;
begin clrscr;
write('Введите длину отрезка a = ');
readln(a);
write('Введите длину отрезка b = ');
readln(b);
write('Введите длину отрезка c = ');
readln(c);
write('Введите длину отрезка d = ');
readln(d);
writeln;
if (a<=0) or (b<=0) or (c<=0) or (d<=0) then
writeln('Длины не могут быть отрицательными или равляться нулю')
else
begin
if (a=b) and (a=c) and (a=d) then
writeln('Отрезки могут быть стороами квадрата')
else
writeln('Отрезки не могут быть стороами квадрата');
if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then
writeln('Отрезки могут быть стороами прямоугольника')
else
writeln('Отрезки не могут быть стороами прямоугольника');
end;
readln;
end.
Другие вопросы из категории
помогите плиз..
сколько и на сколько?
Нужно придумать робота и описать его,его возможности и полезность для общества,
Пожалуйста!!!!
Читайте также
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Как пройти 9 уровень в час кода ам няма помогите пожалуйста!!