Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
640*480=307200
256 цветов кодируется 1-м байтом
307200 байт
512кбайт=524288 байт
не более 1 страницы
var
i,s: integer;
begin
s: =0;
for i: =2 to 5 do
s: =s+i*i;
writeln(s);
end.
var a: array [1..10] of integer;
i,k: integer;
read(a);
k: =1;
for i : = 1 to 10 do
if a[k]> a[i] then k: =i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
Популярные вопросы