512 К = 512 х 1024 = 524 288 (байт).
640 х 200 = 128 000 (пикселей).
Для кодирования 16 цветов потребуется 4 бита (2^4=16), т.е. 1/2 байта.
Поэтому весь набор пикселей занимает 128 000 х (1/2) = 64 000 байт.
Это позволяет разместить 524 288 / 64 000 ≈ 8 страниц.
Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.
var
a, b: string;
c: integer;
begin
writeln('Введите первое слово: ');
readln(a);
writeln('Введите второе слово: ');
readln(b);
c := length(a) - length(b);
if c = 0 then writeln('Длины слов равны')
else if c > 0 then writeln('Первое слово длиннее второго на ', c)
else writeln('Второе слово длиннее первого на ', -c)
end.
2)
var a: string;
begin
writeln('Введите предложение: ');
readln(a);
case a[length(a)] of
'.': writeln('Предложение повествовательное');
'!': writeln('Предложение восклицательное');
'?': writeln('Предложение вопросительное');
end;
end.
3)
var
a: string;
t: char;
begin
writeln('Введите слово: ');
readln(a);
t := a[1];
a[1] := a[length(a)];
a[length(a)] := t;
writeln('Полученное слово: ', a)
end.<span> </span>
Ответ:
x=7 y=0
Объяснение:
1) x= 13
2) y= 7
3) t= 7
4) y= остаток от деления 13 на 7
13 можно разделить на 7 только 1 раз
13-(7*1)=6
y= 6
5) x= 7
6) y= (Деление 6 на 7 без остатка) * 7
6 можно разделить на 7 ноль раз, то есть значение 0
0*7=0
y= 0
Вывод: x=7; y=0
