Найдите ошибки в записи программы program произведение

Обновлено: 07.07.2024

Надо бы указывать - какой используется компилятор. вариант программы, который должен работать со всеми версиями паскаля: program prog; var a, b, c: integer; begin readln (a, b); c : = a * b; writeln ('произведение введенных вами чисел равно ', c); end.

Строчка "program умножение; " спорная т.к. некоторые компиляторы поддерживают кириллицу, например pascalabc, но лучше использовать буквы. "var a, b, c: boolean; " boolean - это логический тип переменных true false, либо 0 1, для других чисел не подходит. я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5 после каждого оператора необходимо ставить "; ", кроме того, что перед "end" там ставить не обязательно. в паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ": =", поэтому исправим тут ошибку "c = a * b" текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку " writeln (произведение введенных вами чисел равно , c)"и так вот готовая исправленная программа program multi; var a,b,c: real; begin read(a,b); c: =a*b; writeln('произведение введенных вами чисел равно ',c) end.

1)program wk;
var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 <>0)then p:=p*mas[i];
end;
Writeln(p)
end.

Читайте также: