Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Катя36211
24.07.2022 22:05 •
Информатика
Что я неправильно написал? var a,b,c,d: real; begin writeln(' введи число a'); readln(a); writeln('введи число b'); readln(b); writeln('введи число c'); readln(c); d: =a; a: =c; writeln(a); c: =b; writeln(c); b: =d; writeln(b); end.
Ответ:
darina1209
05.07.2020 14:48
Вот код:
var a, b, c, d: real;
begin
writeln ('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
writeln('Введите число c');
readln(c);
begin
d := a;
a := b;
b := c;
c := d;
end;
writeln(a,b,c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pd101
08.03.2020 08:08
На pascal abc,решить используя type надо) составить программу которая создает файл каждая строка которого выглядет так: табельный номер,фио,оклад. ввести в файл данные о 5-ти работниках...
zyla24
06.09.2021 01:18
Является ли условным оператором следующая последовательность символов? ifx является не является...
натали577
10.11.2022 21:51
Чи можна в середовищі Scratch2 скласти кілька скриптів для одного об єкта; різні скрипти для різних об єктів; однакові скрипти для різних об єктів?...
Hamster02
23.05.2022 17:07
Program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln ( sum= ,sum); writeln ( umn= ,umn); readln; end. x=25...
Фариза04
26.09.2021 11:12
Определить текущую страницу документа это как...
Seregabludov98
05.05.2020 16:27
В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&». За К-во страниц весна&лето 700...
дитанатор
06.11.2022 07:02
Какие разделы существуют в программе, написанной на языке Паскаль? Варианты ответов: а) заголовка б) описаний в) операторов...
JICNX
07.06.2021 23:57
Дано условие. Выбери верный ответ. If (a 90) and (b 90) and (c 90) then writeln( Треугольник - ); тупоугольный правильноугольный нет верного ответа остроугольный...
igulsinya
13.03.2023 17:08
Назовём натуральное шестизначное число N (100000£ N £ 999999) счастливым, если сумма двух его первых цифр больше, чем сумма двух средних цифр, которая, в свою очередь, больше, чем...
mary357vozd80s
29.06.2021 09:40
Рассчитайте, сколько Кбайт займет стереозапись, для сопровождения презентации, состоящей из 20 слайдов, если оно будет иметь следующие параметры: частота дискретизации – 44 кГц, разрядность...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a, b, c, d: real;
begin
writeln ('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
writeln('Введите число c');
readln(c);
begin
d := a;
a := b;
b := c;
c := d;
end;
writeln(a,b,c);
end.