Дана фраза "ценая вещь". исправить ошибку в ней. (Паскаль)
10-11 класс
|
Странное задание.
var s:string;
begin
s:='ценая вещь';
s:=copy(s,1,3)+copy(s,3,8);
end.
Как-то так, наверное.
Другие вопросы из категории
информационный объем рассказа в кодировки kol8-r в мб
предположения каждый, и только одно из них оказалось верным. I — Алексей не на 2-ом, Виктор на 2-ом. II — Борис на 2-ом, Виктор на 1-ом. III — Алексей не на 1-ом, Борис на 2-ом.
Читайте также
А вот само задание:
Дано: массивы А(8),
В(10). Сформировать массивы C
и D:
массив С должен состоять только из положительных элементов массива А и В, а
массив D –
из отрицательных. Предусмотреть подсчет и печать количества отрицательных и
положительных элементов в каждом из массивов А и В. Подсчет и печать количества
отрицательных и положительных элементов массива оформить в виде подпрограммы.
4х4. Поменять местами первый и последний элемент массива х.
Листингпрограммы:

2. Выпишите недопустимые имена переменных:
a) Nomer;
b) S34;
c) И92;
d) Kol_vo54;
e) 45_A;
i) fg-л23
3. Установите соответствие (с помощью стрелок) между переменной и типом данных:
а) A:=3.234 а) Integer
b) Z:=14 b) Real
c) B:=10351 c) Byte
d) K:=-0.2 d) Word
e) C:= 64000
4. Запишите инструкцию:
а) присваивающую переменной V значение 7;
б) увеличивающую значение переменной Z на 30;
в) вычисляющую значение переменной R по формуле (X2+Y2):2;
5. Опишите переменные, необходимые для вычисления:

при x=-5.3, y=7.42
6. Напишите инструкцию вывода на экран:
а) вашего имени б) числа 400 в) значения выражения 7,3(3,22+8,61)
7. Определите, какое значение примет переменная С в результате выполнения данной последовательности операторов присваивания:
a:=8; b:=a/2; c:=43 mod a; a:=(b+c) div 6; b:=b+1; c:=sqrt(abs(a*b-14));
8. Установите соответствие между служебными словами и названиями разделов программы:
а) Var а) Раздел операторов
b) Program b) Раздел имени программы
c) Uses c) Раздел описания переменных
d) Begin …end d) Раздел описания библиотечных модулей
9. Найдите ошибки в записях оператора:
a) Write ©;
b) Writeln;
c) Writeln (Введите любое число);
d) Write X,Y;
e) WRITELN (‘воскресенье, нерабочий день’);
10. Какая структура программы верная:
begin
program MyFirst;
X:=Y+195;
end.
program MyProg;
begin
Writeln (‘Привет’);
end.
11. Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:
1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
8) Writeln(‘p=’,p,’ s=’,s);
4) p:=2*(a+b);
9) a:=6;b:=3;h:=4;
5) Uses crt;
10) clrscr;
11) begin
12. Дан текст программы в таблице с ошибками:
исправьте ошибки в программе;что выведется на экран в результате выполнения программы?
Программа с ошибками
Программа без ошибок
На экране будет напечатано:
War: a,b,c – integer, x: real;
Bigin
A=7, b=3,2, c:=a+b;
Writln (summa=, c);
C:=c/2; x:=a-c;
Writeln(‘x=’ , x, ‘kvadrat=’, x*x);
and
13. Перевести блок-схему на язык Паскаль.
Вычисление расстояния между точками А и B.

отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
Листинг программы:
Program Massiv;
Const n=10;
Var A:array [1..4] of integer;
I, c, c2, c3: integer;
Begin
For i=1 to N do begin
Readln (a[i]); If (a[i]=0 then inc(c)
Else if ([ai]<0) then inc(c2)
Else inc (c3);
End;
Writeln (`нулевые:`,c);
Writeln (`отрицательные:`,c2);
Writeln (`положительные:`,c3);
End.