Задача1Введите числа в переменные a, b и c и напишите программу,
Задача1Введите числа в переменные a, b и c и напишите программу, которая меняет местами значения переменных по последующей схеме, чтоб в переменной а оказалось первоначальное значение переменной с, в переменной b значение а, в переменной с значение b.
Написать программку в pascal abc
2 ответа
Степан Васюсин
Var
a,b,c,m,n:integer;
begin
writeln('Введи а,b,c');
readln(a,b,c);
m:=a;
n:=b;
a:=c;
b:=m;
c:=n;
writeln(a,b,c);
readln;
end.
a,b,c,m,n:integer;
begin
writeln('Введи а,b,c');
readln(a,b,c);
m:=a;
n:=b;
a:=c;
b:=m;
c:=n;
writeln(a,b,c);
readln;
end.
Артем
написать программку вычисления выражения, значения a и bD=a+b деленное на 2ab задание вот
Денис Какарников
ну я и так напиал просто проверить
Лидия
program homework1;varA, B, X, D : real;K : real;beginwriteln'Введите значение переменной a ';readln(A);writeln'Введите значение переменной b ';readln(B);D := A + B;x:=2 * a * b;K:=D / X;writeln'Итог: ', K:1:1, ' ';end.
Валера
сделай проверку дробления на нуль
Олег
if x=0 then writeln('деление на нуль') else writeln(D/k:3:3)
Наталья Пашеткина
я не так написал
Арина Исиева
program homework1;varA, B, X, D : real;K : real;beginwriteln('Введите значение переменной a ');readln(A);writeln('Введите значение переменной b ');readln(B);D := A + B;x:=2 * a * b;K:=D / X;writeln('Результат: ', K:1:1, ' ');end.
Ангелина Загрябина
так я и пишу, добавь проверку разделенье на нуль. если у тебя а или b буде нуль, то прога не запустится
Инна Косатонова
да
Семён Шлеалюх
varA, B: real;beginwriteln('Введите значение переменной a ');readln(A);writeln('Введите значение переменной b ');readln(B);if (a*b<>0) then writeln('D=',((a+b)/(2*a*b)):3:3);else writeln('ошибка дробление на нуль'); readln;end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов