Төмендегі суреттерге қарап ақараттарды ажыратыңдар.Қалай ойлайсыңдар күнделікті өмірде осындай ақпараттарды пайдаланамыз ба?Мысалдар келтіріңдер ​

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

самая крупная не летающая птица- страус эму