Напишите программу, которая считывает одну строку, после чего выводит «МЯУ», если в введённой строке есть подстрока «кот», и «ГА
В» в противном случае.
Пример 1
Ввод Вывод
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Пример 2
Ввод Вывод
Кто я? кто
ГАВ
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
if ReadlnString.ToLower.Contains(‘кот’) then Print(‘МЯУ’)
Примеры
Извините, пожалуйста, вы не подскажете, который час?
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write(‘Alphaeus asks: please enter n = ‘);
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.
1 страница = 40 строк * 60 символов * 8 бит = 19200 бит надо для одной страницы. У нас 540 кбайт — это 4423680 бит. 4423680/19200 = 230.4. Получается, что 230 страниц поместится в файл объёмом в 540 кбайт.