Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
23 мая 2023 04:06
475
Дан фрагмент программы. Определите результат выполнения программы
A:='KLASS';
DELETE(A, 1,2);
DELETE(A, 3,1);
WROTELN(S);
1
ответ
Данный фрагмент программы содержит ошибки, поэтому выполнение программы невозможно. Ошибки заключаются в следующем:
- Не определена переменная S, которую программа должна вывести.
- Неправильно написано название функции для вывода на экран, должно быть WRITELN, а не WROTELN.
- Второй вызов функции DELETE должен иметь первый параметр равный 2, а не 3, чтобы удалить символ "S" из строки.
Исправленный фрагмент программы будет выглядеть так:
```
var A: string;
begin
A := 'KLASS';
Delete(A, 1, 2);
Delete(A, 2, 1);
Writeln(A);
end.
```
Результат выполнения этой программы будет "AS".
- Не определена переменная S, которую программа должна вывести.
- Неправильно написано название функции для вывода на экран, должно быть WRITELN, а не WROTELN.
- Второй вызов функции DELETE должен иметь первый параметр равный 2, а не 3, чтобы удалить символ "S" из строки.
Исправленный фрагмент программы будет выглядеть так:
```
var A: string;
begin
A := 'KLASS';
Delete(A, 1, 2);
Delete(A, 2, 1);
Writeln(A);
end.
```
Результат выполнения этой программы будет "AS".
0
·
Хороший ответ
23 мая 2023 04:09
Остались вопросы?
Еще вопросы по категории Информатика
Как посчитать среднее значение в таком формате 100,00 грн? У меня выдаёт ошибку. Нужно найти среднее значение с ячеек по этой формуле =СРЗНАЧ(B5:B10)...
Какой объём видеопамяти I необходимо для хранения графического изображения, занимающего весь экран монитора с разрешением 800*600 k, если глубина цвет...
между дачными поселками Арбатское, Бунеево, Веснянка, Гремячье, Дымово построены дороги протяженность которых в километрах приведена в таблице.... Пос...
У исполнителя Вычислитель две команды, которым присвоены номера: 1-прибавь 5 2-умножь на 3 Первая команда уменьшает число на 5,вторая - умножает чис...
Массив A заполнили, а потом изменили: n := 2020; for i := 1 to n do A[i] := i + 1; for i := 1 to n div 2 do A[i] := A[n + 1 - i]; Че...