Question

Программа с числом 101 паскаль

Answer 1

Ответ:

uses crt;

var sum,i:integer;

begin

sum:=0;

for i:=101 to 301 do begin

if i mod 2=0 then sum:=sum+i;

end;

writeln('Cумма нечётных элементов=  ',sum);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который выводит число 101:

pascalCopy code
program PrintNumber;

begin
  writeln(101);
end.

Эта программа использует процедуру writeln, чтобы вывести число 101 на экран. Вы можете скопировать этот код, вставить его в среду разработки Pascal (например, Lazarus или Free Pascal) и выполнить программу, чтобы увидеть результат.