Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
налить в 9-литровое 9 литров
отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое
налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
begin
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
10000 байт = 10000 : 2^10 кб = 9,8 кб
10000 байт = 10000 : 2^20 мб = 0, 009 мб
600000 байт = 600000 : 2^10 = 586 кб
Популярные вопросы