<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ
Ответ Нос (3) потому что 10111000 нельзя первым ставить остальные буквы как кроме «н», а дальше все понятно.
Очистиь все данны с диска
Ответ:
Var a,b,x,f:integer;
Begin
Repeat
Read(a,x);
B:=random(7)-3;
Writeln('y=', sqr(a)+b*x);
Writeln('Ещё одно вычисление? Да(1) нет(0)');
Read(f);
Until f=0;
End.
Объяснение:
1) Жёсткий диск
2)Процессор
3)оперативная память