на паскаль ABC
10-11 класс
|
1).составте программу которая удаляет первое слово текста
2)составте программу которая вставляет одно слово в текст после первого пробела
1) var
s, s1:string;
c:char;
begin
repeat begin read (c); s1:=s1+c; end until c=' ';
read (s);
write (s);
end.
2)var
s, s1, s2:string;
c:char;
begin
read (s);
while (c<>' ') do begin read (c); s1:=s1+c; end;
read (s2);
write (s1, ' ', s, ' ', s2); end.
где первым вводится слово, которое нужно вставить
Другие вопросы из категории
Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ:
1. k:=20; k:=k+10; if k+10<>30 then k:=8 else k:=k-1; WriteLn (k)
Ответ:
2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k)
Ответ:
3. p:=1; if p>0 then p:=p+5; Write (p); if p>10 then p:=p+1; Write (p)
Ответ:
4. p:=5; if p>0 then p:=p*2 else p:=12; if p>5 then p:=p-1 else p:=p+1; WriteLn(p);
Ответ:
5. p:=0;p:=p+1; if p=0 then p:=5 else p:=p-1; WriteLn(p);
Ответ:
6*. p:=5;p:=p*2; if p mod 2=0 then WriteLn(p) else WriteLn(0);
Ответ:
веселились 1426 мух. Петр Петрович открыл форточку и, размахивая
полотенцем, выгнал из комнаты 226 мух. Но, прежде чем он успел
закрыть форточку, 214 мух вернулись обратно. Сколько мух теперь
веселится в комнате?
в десятичные: 777, 375, 111, 1015.Дешифруйте следующие шестнадцатеричные числа, преобразовав их в десятичные: 15, A6, 1F5, 63.
Читайте также
графического режима на паскале abc
.
Реализовать программу, которая
периодически выводит на экран «звездное
небо» и затем гасит его.
Часть 1: 19 и 32, Часть 2: 2
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!
Сформируйте два одномерных массива. В один перешлите четные, а в другой
-нечетные элементы матрицы. Выведите на экран все массивы.