Надо ввести новую переменную, например y, присвоить её к 1: y:=1
Дальше, в первой задаче ничего не трогаем, во второй пишем: if b=4 then writeln (....) and y:=y+1 else ....
И тоже самое пишем в 3 задаче ( and y:=y+1 ), т.е., если он ответит на все вопросы правильно,то у будет равняться 5, ну и в конце пишем "врайтлн у" и всё))
Ральф Джонсон, Эрих Гамма, Ричард Хелм, Джон Влиссидес.
1-ложь
2-истина
3-ложь
4-истина
5-истина
6-ложь
7-истина
8-ложь
9-истина
Создатель языка paskal:
б) Никлаус Вирт
1) N-?
v=k*i, где v- объем файла, k- разрешение, i - глубина цвета
i=v/k=(125*1024*8)/(320*400)=8 бит
N=2^i=2^8=256
2) i-?
2^i=312
i=9 (8 мало - N=256, при i=9 N=512)
9 бит
3) N=8
i=3
v=(640*480*3*3)/(8*1024)=337,5 Кбт