1) Написать программу в паскале, "проверить, являются ли цифры введенного трехзначного числа возрастающей последовательностью" 2) Написать программу в паскале, "по введенным координатам точки (х,у) определить в какую четверть п...
1) Написать программу в паскале, "проверить, являются ли цифры введенного трехзначного числа возрастающей последовательностью"
2) Написать программу в паскале, "по введенным координатам точки (х,у) определить в какую четверть попадает эта точка"
Ответ(ы) на вопрос:
Гость
1)
Program n1;
var n:integer;
begin
write('Введите 3-х значное число: ');
readln(n);
if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then
writeln('true')
else writeln('false');
end.
2)
Program n2;
var x,y: real;
begin
readln(x,y);
if(x=0) and (y=0) then writeln('точка в начале координат')
else if(x>0)and(y>0) then writeln('I четверть')
else if(x<0)and(y>0) then writeln('II четверть')
else if(x<0)and(y<0) then writeln('III четверть')
else if(x>0)and(y<0) then writeln('IV четверть')
else if(x=0)and(y<>0) then writeln('точка на оси OY')
else if(x<>0)and(y=0) then writeln('точка на оси OX');
end.
Гость
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!
№1
begin
var s:=ReadInteger.ToString;
if s=s.Distinct.Sorted.JoinIntoString('') then
Writeln('Цифры являются возрастающей последовательностью')
else
Writeln('Цифры не являются возрастающей последовательностью')
end.
Примеры
148
Цифры являются возрастающей последовательностью
355
Цифры не являются возрастающей последовательностью
№2
begin
var x,y:real;
Write('Введите координаты точки: '); Read(x,y);
if x*y=0 then Writeln('Нули вводить не допускается')
else
if x*y>0 then
if x>0 then Writeln('I четверть')
else Writeln('III четверть')
else
if x>0 then Writeln('IV четверть')
else Writeln('II четверть')
end.
Пример
Введите координаты точки: -2 -3.2
III четверть
Не нашли ответ?
Похожие вопросы