Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>

0 0

4 года назад

Для представления слова "_лес_" требуется сколько байтов

9605095471

<span>"_лес_" - 5 символов
пусть кодировка 8 битовая
5*8 = 40 бит = 5 байт
</span>

0 0

4 года назад

Найти сумму всех двузначных чисел кратных 3, не меньших заданного числа N. Входные данные: в первой строке одно целое число N, (

Irena036 [6.9K]

Var n: integer;
begin
read(n);
write((102 - n) div 3 * ((n + 2) div 3 * 3 + 99) div 2)
end.

0 0

4 года назад

Запишите на школьном алгоритмическом языке логическое выражение-10<х<10

Bashibuzuck

(-10;10)

этот ответ точный

0 0

4 года назад