составить программу которая введенное с клавиатуры целое число делить на 2

@тамара46 · Регистрация: 07.12.2011

Студворк — интернет-сервис помощи студентам

составить программу которая введенное с клавиатуры целое число делить на 2,

если оно четное, и умножает на 2, если оно не четное(паскаль)

@Кевоин_прогин) · 08.12.2011, 15:28

Pascal

 uses crt;
 var a,b:integer;
 begin
    writeln('Введите целое число');
      readln(a);
      b:=a;
       if a mod 2=0 then b:=a div 2
        else
        b:=a*2 ;
        writeln(b);
        readkey
   end.

@тамара46 1 / 1 / 0 Регистрация: 07.12.2011 Сообщений: 5
		1
	составить программу которая введенное с клавиатуры целое число делить на 2 07.12.2011, 22:38. Показов 3703. Ответов 1 Метки нет (Все метки) составить программу которая введенное с клавиатуры целое число делить на 2, если оно четное, и умножает на 2, если оно не четное(паскаль) 0

Опции темы

составить программу которая введенное с клавиатуры целое число делить на 2

Решение