написать программу в паскале, которая проверяет проверяет по заданным трем сторонам треугольник на равносторонность
10-11 класс
|
program E4;
var a, b, с: real;
Другие вопросы из категории
Умножать на 2
И прибавить 1
Составьте для Вычислителя наиболее короткую программу получения числа 1 чисел 5,50 и 99.
Исходное число 1.
Программа:
______________________________________________
_____________________
Результат 5.
Исходное число 1 .
Программа:
_________________________________________________________
____
Результат 50.
Исходное число 1.
Программа:
______
__________________
Результат 99.
в) не на белом Москвиче. Каждый из них в чем-то ошибался. На какой машине скрылись преступники?
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
http://primat.org/index/0-128 вот сайт что бы написать программу.
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
"Копейка". Например ,5 копеек,41 копейка и тд.
Вот мои попытки создать программу:
Program Kopeika;
Var a:integer;
begin
Writeln('Vvedite chislo');
Readln(a);
Case a of
'1,21,31,41,51,61,71,81,91': a:='Kopeika ';
'2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94': a:='Kopeiki ';
'5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99': a:=' Kopeek';
end;
Readln;
end.