Дано целое число...

Тема в разделе "Информатика", создана пользователем Emporio, 3 фев 2010.

  1. Emporio

    Emporio New Member

    Дано целое число А. Если значение А<0,то необходимо удвоить его. Написать программу для решения этойзадачи.
     
    Emporio, 3 фев 2010
    #1
  2. dinovi

    dinovi New Member

    Program VadimLoh;
    uses crt;
    var s,m:integer;
    begin
    writeln('Введи число');
    readln(s);
    If s < 0 then
    s:=s*2
    else
    writeln('Число больше 0 !');
    writeln(s);
    end.
     
    dinovi, 3 фев 2010
    #2

Поделиться этой страницей

Наша группа