var
s: string;
e, tmp: integer;
mistake: boolean;
begin
mistake := true;
write('Введите логин: ');
readln(s);
if ((s.Length = 7) and (s[1] = 'i') and (s[2] = 'o')) then
begin
s := s.Remove(0, 2);
Val(s, tmp, e);
if (e = 0) then
mistake := false;
end;
if (mistake) then
write('Incorrect')
else
write('Correct');
end.
В файле код программы.
Блин, пишите понятно, а то разность, произведение... я в украинской школе учился и хз что это.
C)сетевым;
a)в XIX ;
d)интегральные микросхемы
64это 2 в 6 степени. получается 1 символ = 6 бит. 10*32*64=20480 символов 20480*6=122880бит=15360байт=15кбайт
Если у тебя c нужно вводить, то смотри на первый скрин, а если c уже дано, то смотри на второй.