Найти ошибки и исправить их Program Ex2; Uses CRT; Var Const A,B-integer; Rezult:byte Begin Write('Введите два числа: '); Reat(A,B); Rezult=A * B; Writeln('Отношение равно ' Rezult); End.
fukaczumi
3
20.06.2020 13:28
2
Другие вопросы по теме Информатика
Exem76
29.03.2021 14:14
baandas
29.03.2021 14:14
homonorolla
05.10.2019 17:40
yroyakap0doki
05.10.2019 17:40
Zarina2206
06.10.2020 20:18
Еденорожка666
06.10.2020 20:25
mdebnu
18.10.2021 19:52
radmirnemyshov
10.02.2021 09:22
КлубникО
19.02.2020 01:20
antochakakaka
19.02.2020 01:20
Популярные вопросы
- Сочинение моя семья и новый год . краткое....
2 - Объясните, как связано появление богов с образом жизни и занятиями древних греков...
3 - Из двух пунктов а и в , расположенных на берегу реки обь, расстояние между которыми...
1 - Традиции древней руси, надо по мхк...
2 - Найти наибольшее целое число n, удовлетворяющее неравенству n -5...
3 - Напишите уравнение реакций, с которых можно осуществить следующие превращения:...
1 - Что является источником электрического тока?...
3 - Найдите площадь равнобедренной трапеции с основаниями 22 см и 40 см и боковой...
3 - При каком царе и где появились первые законы? как называлась письменность в древнем...
1 - Вжелезном сосуде массой 100г находится 500г воды и 200 г льда при общей температуре...
3
Код исправленной программы:
Program Ex2;
Uses CRT;
Var a, b:integer;
Rezult:byte;
Begin
Writeln('Введите два числа: ');
Readln(A,B);
Rezult := A * B;
Writeln('Отношение равно ', Rezult);
End.