program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.
Ответ дал: Гость
var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
Ответ дал: Гость
f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000
т.е. 240/20=120 ост 0
120/2=60 ост 0
60/2=30 ост 0
30/2=15 ост 0
15/2=7 ост 1
7/2=3 ост 1
3/2=1 ост 1
записываем в обратном поряде 11110000
1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468 делим столбиком число 468 на 2 111010100
Популярные вопросы