Var
ch,otv,perv,last:Integer;
begin
WriteLn('Введите число');
readln(ch);
last:=ch mod 100;
ch:=ch div 100;
perv:= ch div 10;
ch:=ch div 10;
otv := perv*1000+4*100+last;
WriteLn('Ответ: ',otv)
end.
пж как лучший
Смотри вложения ->>>
<em>Будут вопросы - пиши!</em>
Var x:integer;beginreadln(x);write(4*sqr(x)+sqrt(x-2));end.
Задание 1.
Ответ под цифрой 4
Задание 2.
Ответ под цифрой 4.
Задание 3.
Найдем количество символов в статье:
<span>64·40·64 = 26·5·23·26 = 5 · 215. </span>
Один символ кодируется одним байтом, 210 байт составляют 1 килобайт, поэтому информационный объем статьи составляет
<span>5·215 байт = 5·25 килобайт = 160 Кб. </span>