Напишите , 3 программы на pascal'е: 1. дано целое число. если оно положительное, то прибавить к нему 1, если же нет, то найти остаток от деления этого числа на 2. 2. ввести двузначное число. определить, какая цифра в числе больше. 3. дано число. является ли число 7 его делителем?

program r1; var n: integer; beginassign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); if n> 0 then n: =n+1 elsen: =abs(n mod 2) ;   {примечание-остаток будет положительным)writeln(n); close(input); close(output); end.

2

program r1; var n,l: integer; beginassign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); if (n mod 10)> (n div 10) then writeln('2> 1') elseif (n mod 10)< (n div 10) then writeln('2< 1') elseif (n mod 10)=(n div 10) then writeln('2=1'); close(input); close(output); end.

самым первым электронным программируемым компьютером был 1500 ламповый "коллос", который был  создан 1943 году, профессором максом ньюменом в великобритании. он предназначался для расшифровки кодов шифровальной машины "энигма". те работы на которые у механических дешифраторов уходили дни, "колосс" выполнял за несколько часов. информация о нем была под грифом совершенно секретно практически до конца 20 века.

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end