Вторая задача
var a,b,i,sum:integer;beginread(a,b);for i:=1 to b do begin inc(sum,a); end;writeln(sum);end.
Третья задача.
var a,b,i,sum:integer;beginwriteln('Cколько минут прошло?');read(a);sum:=1;for i:=1 to a do begin inc(sum,sum); end;writeln(sum);end.
Четвертая задача
var a,i,x:integer; fibb:array [0..1000] of integer;beginread(a);fibb[0]:=1;fibb[1]:=1;i:=2;while fibb[i-1]<a do begin fibb[i]:=fibb[i-1]+fibb[i-2]; inc(i); end;x:=i;for i:=1 to x-2 do beginwrite(fibb[i],' ');end;end.
Это проверка текста на орфографию.
Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.
#1
x>2 или x≤1
ложно, если x=2
#2
((x>2) или (x>5))->(x<3)
(x>2)->(x<3)
если x>2 ложно, то всё выражение истинно
x=2
#3
2<x≤3
x=3
#4
x<3 и x≠2
x=1
//На VS 2010 решается так, в других средах разработки может нужно к заголовкам добавить .h или убрать подключение пространства имен STD :(Console application)