Для введення послідовності текстових даних у діапазон клітинок (А-Д): №1

№2

№3

№4

№5

Натиснути ліву кнопку миші та, утримуючи й натиснутою, виділити потрібний діапазон

Відпустити ліву кнопку миші.

Навести вказівник на маркер заповнення (при цьому вказівник виглядатиме як чорний хрестик +).

Зробити цю клітинку поточною.

Увести в першу клітинку діапазону перший елемент списку. ИНФОРМАТИКА

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

64000*16=1024000 б=128000 б=125 кб

954-459=495                                      

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.