Program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.
USB провод используется для соединения электроники для передачи файлов, зарядки и т. д.
Pascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write(<em>'Введите число: '</em>);
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write(<em>'Ответ: ',</em>a);
end.
//Pascal ABC.NET v3.1 сборка 1172
var
ma: array of array of integer;
n, m, i, j, max, maxi, maxj: integer;
f: text;
s, st: string;
begin
randomize;
readln(n);
readln(m);
max := -1;
setlength(ma, n);
for i := 0 to n - 1 do
setlength(ma[i], m);
writeln('Matrix:');
for i := 0 to n - 1 do
begin
writeln;
for j := 0 to m - 1 do
begin
ma[i, j] := random(101);
write(ma[i, j]:4);
if max < ma[i, j] then
begin
max := ma[i, j];
maxi := i;
maxj := j;
end;
end;
end;
assign(f, 'text.txt');
rewrite(f);
for i := 0 to m - 1 do
write(f, ma[maxi, i]:4);
writeln(f, ' ');
for i := 0 to n - 1 do
write(f, ma[i, maxj]:4);
close(f);
writeln;
writeln('File:');
assign(f, 'text.txt');
reset(f);
while not Eof(f) do
begin;
readln(f, st);
s := s + st + chr(10) + chr(13);
end;
close(f);
write(s);
end.
Пример ввода:
3
4
Пример вывода:
Matrix:
30 29 3 61
64 4 99 36
45 9 85 19
File:
64 4 99 36
3 99 85
А). двоичная - 1010, восьмиричная - 12, шестнадцатиричная - А.
(для удобства сокращу до д, в, ш)
б) д - 111101001, в - 751, ш - 1Е9.
в) д - 1000000010, в - 1002, ш - 202.
г) д - 10000000000, в - 2000, ш - 400.
д) д - 1000000000, в - 1000, ш - 200.