Даны<span> два </span>числа<span>. Если оба кратны </span>четырем<span>, </span>товывести<span> их произведение.</span>
<span>Ответ: Если кратны, </span>то<span> значит без остатка делится на </span>4<span>. Первая формула будет деление на </span>4. Дальше уже условие какое-то<span> мутить на проверку полученного результата
</span>
16777216 цветов можно закодировать 24 битами данных, т.к 2^24=<span>16777216
следовательно 1024*768*24=</span>18874368 бит = 2359296 байт (т.к. в 1 байте 8 бит) = 2304 Кбайт (делим на 1024) = 2,25 мегабайта
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.