Самостоятельная работа. На вход программе подается строка: I LOVE YOU MY KITTEN. Напишите фрагмент программы, после выполнения, которого в переменной s2 и на экране будет напечатано «KITTEN». Напишите фрагмент программы, после выполнения, которого на экра

СТРОКИ 0 ЗАНЯТИЕ

program Pr102; {$APPTYPE CONSOLE} var r: integer; s, s1, s2 : string; begin readln(s); //QWERTYUIOP k := pos('Y',s); writeln(k); //6 s1 := Copy(s, length(s)-4, 3); writeln(s1); //YUI Delete(s1, 1, 1); writeln(s1); //UI s2 := Copy(s, 1, 4); writeln(s2); //QWER Delete(s2, length(s2), 1); writeln(s2); //QWE Delete(s, 1, 2); writeln(s); //ERTYUIOP Delete(s, 2, 1); writeln(s); //ETYUIOP readln end.

program Pr001; {$APPTYPE CONSOLE} var k, a, b, r : integer; s, s1, s2 : string; begin s:= '1234567890'; k := pos('7',s); writeln(k); //7 s1 := Copy(s, length(s)-4, 3); writeln(s1); //678 Delete(s1, 1, 1); writeln(s1); //78 s2 := Copy(s, 1, 4); writeln(s2); //1234 Delete(s2, length(s2), 1); writeln(s2); //123 writeln(s1 + s2); //78123 Val(s1, a, r); writeln(a); //78 Val(s2, b, r); writeln(b); //123 writeln(a + b); //201 readln end.

Самостоятельная работа

На вход программе подается строка: I LOVE YOU MY KITTEN

S[i]

1) Напишите фрагмент программы, после выполнения, которого в переменной s1 и на экране будет напечатано «LOVE»

2)Напишите фрагмент программы, после выполнения, которого в переменной s2 и на экране будет напечатано «KITTEN»

3)Напишите фрагмент программы, после выполнения, которого на экране будет напечатано «2» (ПОЛОЖЕНИЕ ПЕРВОГО ПРОБЕЛА)

4)Напишите фрагмент программы, после выполнения, которого на экране будет напечатано «8» (ПОЛОЖЕНИЕ ПЕРВОЙ БУКВЫ «Y»)

5)Напишите фрагмент программы, после выполнения, которого из строки S будут удалены три последние буквы«I LOVE YOU MY KIT»

6)Напишите фрагмент программы, после выполнения, которого из строки S будут удалены шесть первых символов« YOU MY KIT»

На вход подана строка 1) s ='TO BE OR NOT TO BE?' 2) s ='THAT IS THE QUESTION?' Что будет выведено в каждом из случаев на экран в результате выполнения фрагмента программы:

7)k := pos('T',s); writeln(k);	8) s := Copy(s, length(s)-4, 3); writeln(s);
9) Delete(s, 1, 15); writeln(s);	10) s := Copy(s, 1, 4); writeln(s);
11) Delete(s, length(s)- 15, 13); writeln(s);	12) Delete(s, 3, 12); writeln(s);

На вход программе подается строка:s ='123 456 78 90 102345’

S[i]

13-14)Напишите фрагмент программы, после выполнения, которого c с помощью функции copy и + (склеивание) будет составлено: 13)самое маленькое пятизначное число; 14) самое большое шестизначное число.

По мотивам задачи 5 из Полякова

{На ЕГЭ ученик сдавал три экзамена по русскому(минимальный порог - 36 баллов),

по математике(минимальный порог - 24 балла), по информатике (минимальный порог - 40 баллов).

На вход программы подаются сведения о результатах всех экзаменов ученика.

Строка, имеет формат: <Фамилия> <Имя> <Баллы за русский> <Баллы за математику> <Баллы за информатику>

Все данные разделены одним пробелом.

Пример входной строки: Петрова Ольга 67 28 66

Напишите программу, которая будет выводить на экран фамилию и имя участника,

сумму баллов участника ЕГЭ, если он прошел минимальный порог по всем предметам,

или сообщение о результатах по всем предметам в отдельных строках

с текстовым сообщением Минимальный порог по ... не пройден.}

program Pr101cha;

var

rus, mat, inf, sum, i : integer;

name : string;

c : char;

begin

name := '';

{считываем символы, которые вводят с клавиатуры, до первого и второго пробела. Склеиваем из них переменную name.}

for i := 1 to 2 do

repeat

read(c);

name := name + c

until c =' ';

writeln(name);

{После второго пробела должны следовать результаты трех экзаменов. Считываем их в переменные rus, mat, inf}

read(rus, mat, inf);

sum := rus + mat + inf;

if (rus >= 36) and (mat >= 28) and (inf >= 40) then writeln(name,'! - ваш результат ЕГЭ')

Else begin

writeln (name,'! ');

write ('Ваш балл по русскому - ',rus); if rus < 36 then writeln(' - Минимальный порог не пройден') else writeln;

write ('Ваш балл по математике - ',mat); if mat < 24 then writeln(' - Минимальный порог не пройден') else writeln;

write ('Ваш балл по информатике - ',inf); if inf < 40 then writeln(' - Минимальный порог не пройден') else writeln

end;

end.