Решить . написать программу вывода на экран лесенкой трех последовательно идущих трехзначных чисел . первое число вводит пользователь,остальные вычисляют в программе. 213 101 214 или 102 215 103
Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. Ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации.
Программа запрашивает некоторое значение "В", на превышение которого потом она реагирует один раз. Затем запрашивается количество чисел, которые надо ввести. Эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т.е. программа повторяет введенное число. В случае, когда введенное число первый раз превышает "В", перед этим числом выводится значение "В". Именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.
Var a,b,n,i:integer; bol:boolean; begin //Инициализируем переменные i:=0; n:=0; bol:=true;
//Осуществляется ввод Writeln('Введите число B: '); readln(b); Writeln('Введите число N: '); Readln(n); Writeln('Введите ', n,' целых чисел.');
//цикл (с пред условием) будет повоторятся n раз While i < n do begin //Осуществляется ввод с клавиатуры Read(a); //Проверяем является (A больше B) и (bol = true) if (a>b)and(bol) then //Если является begin //выводит значение B через пробел Write(' ',b); //и присваивает bol = ложь bol:=false; end; //выводит значение А через пробел Write(' ',a); //инкрементирует i, тоесть i:=i+1 inc(i); end; end.
var
x,y,z:integer;
begin
read(x);
y:=x+1;
z:=x+2;
writeln(x);
writeln(' '+y);
writeln(' '+z);
end.