Инф.10кл. КР
1)Последовательность чисел Падована задается рекуррентным соотношением:
F(1) = 1
F(2) = 1
F(3) = 1
F(n) = F(n–3) + F(n–2), при n >3, где n – натуральное число.
Чему равно двенадцатое число в последовательности Падована?
В ответе запишите только натуральное число.

2)Определите тип чисел: 15.8, 601.0, 0.241
Варианты ответов :
1.integer
2.real
3.char

3) Усл. задачи - a:=’программирование’;
m:=length(a)+7;
writeln(m)
ответы :
23
21
24

4) a:=’19925443452’;
m:=delete (a,3,5);
writeln(m)

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

режим разметки страницы,режим структуры,режим чтения.режим веб документа-

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.