Третей переменной пусть будет "c"
с:=а {сначала "запоминаем" значение "а" с помощью третей переменной}
а:=в {далее делаем "а" равной "в"}
в:=с {затем "в" делаем равной "с" которая равна первому значению "а"}
Готово
Компьютер, калькулятор, нумератор.
Задание 3
З 9
И 10
М 14
А 1
1) ихрпщтансснчси - АЛГОРИТМИЗАЦИЯ
2) ушърезаёщ - КОМПЬЮТЕР
3) счаёщчту - ИНТЕРНЕТ
Задание 4
Б 2
А 1
Н 15
К 12
ЖПЮЩЕБ - еопнга (чтобы это не значило)
Компьютер -5
Телефон-3
Часы - 7
Var
day,a,mon,i,i1,max:integer;{объявляем переменные}
begin
readln(mon,day);{вводим месяц и день}
a:=day;
for i:=mon to 12 do begin
writeln;
write(i,': ');
case mon of{сколько дней в месяце}
9:max:=30;
10:max:=31;
11:max:=30;
12:max:=31;
end;
for i1:=a to max do begin
if a>max then break;
write(a,' ');
a:=a+7;
end;
a:=a-max;
end;
end.
помоему я уже делал эту задачу