Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
anikeevae
20.12.2021 03:34 •
Информатика
Найти ошибку в программе и исправить ее var a,b,x: real; a=a*2; readln(a,b); s=a+b; writeln("x=",x);
Ответ:
О2Л3Я4
31.07.2020 01:56
var a,b,x:real;
begin
a:=a*2;//Чисто теоретически эта строка тут ненужна, но так как это не ошибка оставлю
readln(a,b);
x:=a+b;
writeln('x=',x);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Rube13454hill
12.02.2021 13:06
Сравнение файлов первый файл на 1 мегабайт больше, чем второй файл. второй файл на 3072 байта больше, чем третий файл. на сколько килобайт третий файл меньше, чем первый? в ответе...
lolipop1720
25.08.2022 15:36
Друзья ! нужно написать программу по созданию смайлика через программу q basik. sсreen 8...
myisipov1erg
29.03.2021 01:22
Найти максимальный элемент этого массива const n=20; var a: array[1..n] of integer; i,max: integer; begin randomize; for i: =1 to n do a[i]: = random(90)+10; for i: =1 to n do...
ав003
29.03.2021 01:22
Решить в pascalabc : даны пять чисел. определить наименьшее из этих чисел. для проверки: вход 1)1, 2, 3, 4, 5; 2)2, -3, 3, 4, 5 3) -1, -2, -5, 0, 1 4) 0, 5, -3, -7, 7 5)-3, -4,...
korola
09.01.2021 21:59
Решите уравнение: 4^х+10(бит)=32мбайт...
turdalievab
20.05.2020 22:55
Найдите значение а) 7* 4/37 б) 8/13*4 1/3 в)7/16*3 г)4 4/17*3 7/18 д) 8/63*56е) 5 5/8*1 5/36 ж)3* 3/8 з)2 3/7*1 3/17*2 1/8...
Alin4ikVP
20.05.2020 22:55
Приготовить письменное сообщение на выбор О Марианской впадине. или о Южном океане...
55752188
10.09.2020 17:25
Как вы понимаете слова Юшки-все имеют право на жизнь ....
mt111
06.06.2023 05:09
12*(x+9X)=480 реши уравнение...
13049822987546
12.04.2022 22:50
(x-1)(2x-3) 0 решите неравегства...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
a:=a*2;//Чисто теоретически эта строка тут ненужна, но так как это не ошибка оставлю
readln(a,b);
x:=a+b;
writeln('x=',x);
end.