Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s: string; d,i:integer;
10-11 класс
|
begin
s:='177777277777377777477777;
d:=length(s);
for i:=0 to d - 4 begin
if copy(s,i,5)=00000 then begin
delete(s,i,5);
end
end;
writeln(s)
end.
Var
s:string;
d,i:integer;
begin
s:='177777277777377777477777';
d:=length(s);
for i:=1 to d-4 do
if copy(s,i,5)='77777' then
begin
delete(s,i,5);
insert('00000',s,i);
end;
writeln(s);
end.
Другие вопросы из категории
заданное число я взяла "с=2000". Не могу написать часть программы, которая бы как раз и обозначала вывод на экран последовательность чисел, которые были бы больше заданного числа.. :(
Program mas1;
uses crt;
Var a: array [1..30] of real;
i,n,P,k,c: integer;
d: real;
Begin
repeat
Write(' Введите 0 Readln(n);
if (n<0) or (n>30) then
writeln(' n неправильно введено');
until (n>=1) and (n<=30);
P:=2;
For k:=1 to n do
Begin
P:=P*(k+2);
a[k]:=P*cos(k);
end;
writeln(' Получен массив А');
for i:=1 to n do
writeln('A[',i:2,']=',A[i]:15:3);
writeln;
For i:=1 to n do
for k:=1 to n-i do
if a[k] begin
d:=a[k];
a[k]:=a[k+1];
a[k+1]:=d
end;
writeln;
writeln(' Массив по убыванию');
for i:=1 to n-1 do
writeln('A[',i:2,']=',A[i]:15:3);
writeln;
c:=2000;
?
end.
-5)10001*101
-6) 1010*11
-7)10000001:101011
-8)11110:11
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.