Ответ: алгоритм - 12121(но это для нахождения числа 30, потому что число 60 получить невозможно
Program day;
var
dow: integer;
label main;
begin
write('введите число: ');
main:
readln(dow);
case dow of
1, 2, 3, 4, 5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
else:
begin
writeln('Не день недели! Повторите ввод.');
goto main;
end;
end;
readln;
end.
Pascal (гдето так...)
program treska;
var a,i,k,b,b2,b3:integer;
begin
for i:=100 to 999 do
begin
a:=sqr(i);
k:=a-i;
b:=a-k;
if i=b then write (i,' ');
end;
readln
end.
100 в десятичной = 1100100 в двоичной.
Ответ: 3 единицы
81920 килобайт
или же 81 мб.