При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var a: real; i: integer;begin writeln('Введите курс доллара >> '); readln(a); for i:=1 to 10 do begin writeln(i+'$ = ' + i*a + ' рублей'); end;end.
<span>отдельное предписание исполнителю о выполнении некоторого законченного действия - команда</span>
Var a:array[1..4] of integer;
i, sum:integer;
Begin
for i := 1 to 4 do begin
a[i]:= i*i;
sum := sum + a[i];
writeln(a[i]);
end;
writeln(sum);
End.
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln('Первый символ: "', s[1], '" Второй символ: "', s[2], '" Последний символ: "', s[length(s)], '');
end.
Ответ:
Устройства ввода информации
Объяснение: