60.Жесткий диск 61.Диск 62 .память этого человека
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=3)and(x<=2)and(y<=4*x+3)
then writeln('Да')
else writeln('Нет');
end.
Пример:
<span>x = 1
y = 4
Да</span>
<u>Pascal:</u>
var x,y:real;
begin
write ('X = ');
readln(x);
write ('Y = ');
readln(y);
writeln ('Summa: ',x+y);
writeln ('Srednee: ',(x+y)/2);
readln;
end.
<u>C++:</u>
#include <iostream>
using namespace std;
int main()
{
float x,y;
cout <<"X = ";
cin >>x;
cout <<"Y = ";
cin >>y;
cout <<"Summa: " <<x+y <<endl
<<"Srednee: " <<(x+y)/2 <<endl;
return 0;
}
Вариант №4, там всего 2 еденицы
Примечание(объяснение) 15,25,29,33 дели на 2, каждый раз, и, ты выведешь двоичную запись из десятичной.!