2) Определите, что будет на выходе в результате выполнения
алгоритма. Запишите условие задачи, для которой составлен
данный алгоритм
var
n: integer;
begin
n: 200
while (n mod 17<>0) do n:=n+1;
writeln ('ответ: ". n);
readln
end.​

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

знаки той же арифметики, если эмоции- те же смайлики.

11000 (2) = 30 (8) = 18 (16) = 24 (10)

100111 (2) = 47 (8) = 27 (16) = 39 (10)

10100011 (2) = 243 (8) = а3 (16) = 163 (10)

101010101010 (2) = 5252 (8) = (16) = 2730 (10)

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.