Любая программа на паскале
10-11 класс
|
var x, y:real;
begin
write('Введите x= '); readln(x);
write('Введите y= '); readln(y);
if x=y then
writeln ('Числа равны')
else
if x>y then
begin
writeln('Большее число x= ',x);
writeln('Меньшее число y= ',y);
end
else
begin
writeln('Большее число y= ',y);
writeln('Меньшее число x= ',x);
end;
end.
Другие вопросы из категории
10011101110101; 1111100111
помогите пожалуйста)
Известны наименования и масса (в килограммах) каждого из 15 грузов. Подготовить лист для расчета общей массы грузов, чья масса не превышает К кг (значение К указывается в отдельной ячейке). Задачу решить без вывода массы соответствующих грузов в каких-либо дополнительных ячейках.
Читайте также
его всмятку, а потом варить его У минут. Петя любит есть яйцо, когда оно наполовину приготовлено вкрутую, т.е.когда яйцо сначала приготовлено всмятку, а потом прошла еще половина времени, необходимого для того, чтобы это яйцо стало приготовленым вкрутую. Найдите, сколько минут Пете нужно варить яйцо. (1менше или равна Х, У меньше или равен 10 в восемнадцатой степени) Написать программу на Паскаль
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.