1. Суп, трубы, овощи;
2. Завтрак, кашу, металл (ржавчина);
3. Былину, вещи, учебники;
4. Рот, квартиру, счёт;
5. Угар, щуку, снежинку;
6. Дом, отряд, сожителей.
Var st:real;
mn:integer;
d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.
<em><u>Программа шифровки:</u></em>
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
t = t + MID$(s, i, 1)
t = t + MID$(s10, INT(10 * RND + 1), 1)
t = t + MID$(s20, INT(20 * RND + 1), 1)
t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END
<em><u>Программа дешифровки:</u></em>
DIM s AS STRING, t AS STRING, <span>i AS INTEGER</span>
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
t = t + MID$(s, i, 1)
NEXT i
PRINT t
END