Var a,b:real;
Begin
Write('Длина = ');ReadLn(a);
Write('Ширина = ');ReadLn(b);
if a=b then Write('Является квадратом')
else WriteLn('Не является квадратом')
End.
Разные типы данных
100 - целое число
100,0 - число с плавающей точкой
1. Направляет запрос на сервер.
4. Выводит данные на экран.
5. Составляет отчет для вывода на печать.
Ответ: 1, 4, 5.
1) 100 * log2 64 = 100 * 6 = 600 бит
2) 3,5 * 1024 = 3584.
3) 3584 * 3/4 = 2688.
<span>4) log2 32 / log2 64 = 5/6</span>
Program z18; Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 2; min:=a[1].Length; while (a[i] <> '') do begin l:=a[i].Length; if (l < min) then h:= i; i:= i + 1; end; writeln(a[h]);End.
Program z19; Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.
