помогите составить программу FREE PASCAL
5-9 класс
|
После каждой двойки вставить число 100
Это как? Это надо чтобы программа выводила 2 после чего 100 ?
Если я правильно понял, то дана строка, из букв и цифр, и после каждой 2 вставить число 100 и вывести его на экран ?
Если так, то лови : (извини, ABC pascal стоит)
program ss;
uses crt;
var a:string;
i,n :integer ;
begin
writeln ('vvedite');
readln (a); n:=length (a);
if pos('2',a)=0
then writeln ('chislo otsutstvuet')
else begin
for i:=n downto 1 do begin
if a[i]='2'
then insert('100',a,i+1);
end;
end;
writeln (a)
end.
Сами понимаете, что написали? После какой "каждой двойки"?
Другие вопросы из категории
Установите соответствие...
Библиотека Смешанная(система)
Болото
Самолёт
Вулкан техническая система
Оркестр природная система
Степь
Система счисления
1) 32 бит 2) 27 байт 3) 256 бит 4) 320 бит
на паскале:
заполнить массив из 12 целых числе данных из клавиатуры.Найти сумму и кол-во всех отрицательных числе массива, заменить все числа которые больше десяти нулями.Вывести полученный массив на экран.
СПС за ранее как можно быстрее!
Читайте также
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.