Запишите на языке Паскаль программу циклического обмена значениями трёх переменных
5-9 класс
|
a,b,c.
Схема циклического обмена:
a <- b <- c
I ^
I I
v--------->
Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
program cikl;
var a,b,c,i,j,k:integer;
begin
writeln('BBedute A,B,C');
readln(a,b,c);
i:=a;
j:=b;
k:=c;
a:=j;
b:=k;
c:=i;
writeln('a=',a,'b=',b,'c=',c);
readln
end.
var a,b,c,a1,b1,c1:real;
begin
readln(a,b,c);
b1:=a;
c1:=b;
a1:=c;
writeln(a1,b1,c1);
end.
Другие вопросы из категории
Запишите по 2 суждения:
Из истории-
Из географии-
Из биологии-
Из математики-
Из русского языка-
Из литературы-
Из информатики-
ПОМОГИТЕ! ПОЖАЛУЙСТА!
языка 18 человек изобразите и ответьте на вопросы
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
цифры и выводит новое число на экран.
1. Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет
сумму и произведение его цифр.