var a,b:integer;
begin
writeln('Vvedite a,b?');
readln(a,b);
if a>b then writeln((a+b)*(a+b)) else writeln((a-b)*(a-b));
end.
1. візуальний. тестові
2. візуальний. графічні
3.візуальні. текстові
4. візуальні. тестові, числові
5.аудіальні. звукові
6.
Объясню так, чтобы разобрался.
Итак, каждый символ в документе .txt - 1 бит.
=> модем = 5 бит.
Это первое, т.е. информационный объем равен 5/8 байт.
С диском то же самое.
Объем файла - 5 бит.
Var a,b,c:integer;
begin
writeln(‘vvedite chislo’);
readln(a);
b:=a div 1000;
c:=(a div 10) mod 10;
writeln(b,’ ‘,c);
end.