Помогите Переведите этот ужас на язык Паскаля
5-9 класс
|
зайди в переводчик и переведи а так не является прямоугольник равносторонним
var
a,b,c : integer;
begin
writeln('vvedite zna4eni9:');
readln(a);
readln(b);
readln(c);
if (a=b) and (a=c) and (b=c) then writeln('ravnostoronniy')
else writeln('ne ravnostoronniy');
readln;
end.
Извиняюсь ,с дельфи перепутал.
Другие вопросы из категории
а. 83 б. 122 в. 19
имевший полное имя
D:\2013\Осень\Хризантема.doc.
В этом каталоге создали подкаталог
Ноябрь и файл Хризантема.doc
переместили в созданный подкаталог.
Укажите полное имя этого файла после перемещения.
1)
D:\2013\Осень\Ноябрь\Хризантема.doc
2)
D:\Ноябрь\Хризантема.doc
3)
D:\2013\Осень\Хризантема.doc
4)
D:\2013\Ноябрь\Хризантема.doc
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
ым образом, а стороны равны а=140, b=40.
цифры и выводит новое число на экран.