Объяснение:
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
