Общение в инете
| | |
почта соцсети месенджеры
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
Program p1;
uses crt;
var a,b,p:integer;
begin
read(a,b);
p:=a*b;
If P= 100 then
write('Да, равно 5')
else write('Нет, неравно 5');
end.
1) Тип real невозможно автоматически привести к типу integer, потому что неясно, как поступать с дробной частью - отбросить или округлить.
3) Неверна запись константы 3,5, но если записать 3.5, то допустимо.
4) Нельзя присвоить целочисленную константу строке.. Если взять ее в апострофы, т.е. написать '3', будет корректно.
Там было слишком много ошибок. Вот работающий код (*.pas файл открыть блокнотом)