Question

Составить программу на языке паскаль

Answer 1

Ответ:

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=17 else a:=a+1

else a:=a-3;

end.

Объяснение: думаю этот код подойдёт ...

Answer 2

Конечно, я могу помочь вам составить программу на языке Pascal. Напишем простую программу, которая запрашивает у пользователя два числа и выводит их сумму. Вот код на Pascal:

pascalCopy code
program Сумма_двух_чисел;
var
  число1, число2, сумма: integer;
begin
  writeln('Введите первое число: ');
  readln(число1);

  writeln('Введите второе число: ');
  readln(число2);

  сумма := число1 + число2;
  writeln('Сумма чисел ', число1, ' и ', число2, ' равна ', сумма);

  readln;
end.

Скопируйте этот код в среду разработки Pascal (например, Lazarus или Free Pascal) и запустите программу. Она будет запрашивать у вас два числа и выводить их сумму на экран.