Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
<span>Дано: К = 600 * 350 = 210000 пикселей N = 8 цветов в палитре Найти - I Решение: Найдем, какое количество информации (i) содержит 1 пиксель, воспользовавшись формулой N = 2^i: 8 = 2^i i = 3 бита. Если 1 пиксель занимает 3 бита памяти, то 210000 пикселя занимают^ I = K * i = 210000 * 3 = 630000 бит = 630000 / 8 байт = 78750 байт = 78750 / 1024 кбайт = 76 кбайт. (ответ округлен до целых) Ответ: 76 кбайт.</span>
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
Var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.