Kalmikova1666
?>

Написать программу в паскале Определить какое число ввел пользователь положительное или отрицательное? ( Условие: x>0) От что у меня есть

Информатика

Ответы

ekatef45

Даже если бы ты дал я бы тебе друг.

Программа будет такая:

var x:integer;

Begin

Readln(x);

If (x > 0) then write('Положительное') else write('Отрицательное');

End.

sergeymartyn56
Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так:
1. Переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое.
2.  А дальше стандартно с целочисленного деления выясняем четность первой цифры числа.
 
var a,a1,a2:integer;
s:string
  begin
  readln(a);
  //преобразуем число в строку и найдем первые 2 цифры
  str(a,s);
  a1:=strtoint(copy(s,1,1));
  a2:=strtoint(copy(s,2,1));
  writeln('Первая цифра числа: ',a1);
  writeln('Вторая цифра числа: ',a2);
  //Проверим первую цифру на четность
  if a1 mod 2 =0 then writeln(a1,' - четная')
    else writeln(a1,' - нечетная')
end.
superkiosk249
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger('n=');
  var s:=n mod 10;
  n:=n div 10;
  var d:integer;
  while n>0 do (d,n):=(n mod 10,n div 10);
  s+=d;
  Writeln('Сумма ',s);
  if s>10 then Writeln('Верно') else Writeln('Неверно')
end.

№2

begin
  var s:=ReadInteger('n=').ToString;
  var n:=s.Length;
  (s[1],s[n]):=(s[n],s[1]);
  s.Println;
  if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

№3

begin
  var n:=ReadInteger('n=');
  var p:=1;
  while n>0 do begin
    var d:=n mod 10;
    if d.IsOdd then p*=d;
    n:=n div 10
    end;
  Writeln('Произведение ',p);
  If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.

№4

begin
  var n:=ReadInteger('n=');
  var k:=0;
  while n>0 do begin
    if n mod 10=5 then k+=1;
    n:=n div 10
    end;
  if k=3 then Writeln('Верно') else Writeln('Неверно')
end.

№5

begin
  var n:=ReadInteger('n=');
  var k:=1;
  Writeln('Делители: ');
  for var i:=1 to n div 2 do
    if n mod i=0 then begin
      Print(i);
      k+=1
      end;
  Writeln(n);
  if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу в паскале Определить какое число ввел пользователь положительное или отрицательное? ( Условие: x>0) От что у меня есть
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Verakravez8790
Larya
РубенШафетдинов
lemoh
andrewshilin1334
Mikhailova
Mariya694
valera850515
А Дзукаев1562
karavan85450
osandulyak
modno-trikotazh
igor51766771
Оксана170
info7