задачка 1 - Дано целое число . Если оно положительное, вывести
Задачка 1 - Дано целое число . Если оно положительное, вывести " Число положительное " , если отрицательное вывести "Число отрицательное " , если одинаково 0 - "Число равно нулю"
задачка 2 - дано целое число . Если число положительное, то вывести его на печать . по другому вывести " Данное число не является положительным ".
задачка 3- Даны два числа . Вывести сначала наименьшее . затем большее число.
задачка 4 - Даны два числа . Вывести порядковый номер наименьшего числа .
задачка 5 - Дано целое число . Если число положительное, то вывести его на печать . Если отрицательное, вывести число, умноженное на -1.
задача 6 - Найдите меньшее из 3-х заданных чисел
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if agt;0 then
writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
if a=0 then
writeln('Число одинаково нулю');
readln;
end.
2.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if agt;0 then
writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
readln;
end.
3.
var
a,b:integer;
begin
write('Введите два числа : ');
readln(a,b);
if agt;b then
writeln(a,10,b) else
writeln(b,10,a);
readln;
end.
4.
var
a, b: integer;
begin
writeln('Введите два числа');
readln(a, b);
if a lt; b then writeln('Порядковый номер меньшего числа = 1');
if b lt; a then writeln('Порядковый номер меньшего числа = 2');
if a = b then writeln('Числа одинаковы');
end.
5.
var
a:integer;
begin
write('Введите число: ');
readln(a);
if agt;0 then
writeln(a);
if alt;0 then
writeln(a*-1);
readln;
end.
6.
var
a,b,c,n:real;
begin
writeln('Введите три числа : ');
readln(a,b,c);
n:=a;
if blt;n then
n:=b;
if clt;n then
n:=c;
writeln('Меньшее из введённых чисел : ',n);
readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.