Помогите написать программки..Задачка 1Напишите программку, умеющую проверить положительное ли
Помогите написать программки..
Задачка 1
Напишите программу, умеющую проверить положительное ли число, введённое с клавиатуры
Задачка 2
Напишите программку в которой из двух введенных с клавиатуры чисел, большее из их выведется на экран
Задачка 3
Напишите программку которая при вводе 5 чисел вычисляла бы их сумму и творение, и выводила на экран, что из этого больше.
1 ответ
Нелли
1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if xgt;0 then
writeln ('Число ', x, ' положительное')
else
if xlt;0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if xgt;y then writeln (x)
else
if xlt;y then writeln (y)
else
if x=y then writeln ('Числа одинаковы');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Творение чисел = ', pr);
if sumgt;pr then writeln (sum)
else
if sumlt;pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и творение равны');
End.
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if xgt;0 then
writeln ('Число ', x, ' положительное')
else
if xlt;0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if xgt;y then writeln (x)
else
if xlt;y then writeln (y)
else
if x=y then writeln ('Числа одинаковы');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Творение чисел = ', pr);
if sumgt;pr then writeln (sum)
else
if sumlt;pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и творение равны');
End.
Дарина Радзилиллова
Огромное для вас спасибо)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов