Var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>
Если нужна программа на Паскале, то будет вот так:
program sr_ar;
var a, b, c: integer;
degin
write('a='); readln(a);
write('b='); readln(b);
c:=(a+b)/2;
if c mod 2 = 0 then write('c=',c)
end.
Единственная проблема - некорректное условие, т.к. среднее арифметическое может быть не целым числом. а операция mod применима только к целым числам.
И вообще, считается, что раз есть действие деление, то результат - число не целое, а вещественное.
44=101100
54456=1101010010111000
19573=100110001110101
В слове СИГНАЛ 6 знаков, следовательно, необходимо 6 байт.