Здравствуйте доделать задание, Информатика рабочая тетрадь задание номер 3 на стр 29

Объяснение:

Program xd;

var a, x: integer;

begin

Writeln ('Задайте значение X');

readln (x);

a := - 1;

while a < x do begin

a := a + 4;

end;

writeln (a);

end.

Program xd;

var a, b: integer;

begin

b := 0;

while a mod 3 <> 0 do begin

readln (a);

b := b + 1;

end;

writeln ('Количество введённых чисел: ', b);

end.

Program c;

var a, n, m: integer;

begin

writeln ('Введите значение n, m');

readln (n, m);

if m < 2 then

writeln ('2 > n')

else

a := 1;

while n < m do begin

n := 2 + a * n;

a := a + 1;

end;

writeln (n ,'>', m );

end.

1. – выбрать меню «File \ Change dir…» (Файл \ Сменить директорию) и указать диск и каталог, в который следует сохранить текст программы;

– выбрать меню «File \ Save as…» (Файл \ Сохранить как) и ввести имя файла в полеSave file as(по умолчанию Turbo Pascal устанавливает имя NONAMExx.PAS; необходимо указать другое наименование файла, используя при этом англоязычные символы);

3. Запустить программу и посмотреть, нет ли ошибок при компиляции

4. Компиляция - трансляция программы, составленной на исходном языке высокого уровня, в эквивалентную программу на низкоуровневом языке, близком машинному коду

5.Ctrl + F9

6. Write

   Writeln

7. Read

   Readln