Написать программу, которая будет определять сколько чисел делиться на 3 без остатка на диапозоне от n до k
Ответы
Ответ дал:
0
var
sum, n, k, i: integer;
begin
sum := 0;
write('Введите n и k:');
read(n, k);
for i := n to k do
if(i mod 3 = 0) then
sum := sum + 1;
write(sum);
end.
Ответ дал:
0
count - количество чисел
Ответ дал:
0
Спасибо
Ответ дал:
0
Известно, что "счастливый билет" в городском транспорте - это билет где сумма первых трёх и последних трёх цифр совпадает. Реализовать алгоритм, который позволяет по введенному номеру билета, определить - счастливый он или нет.
Пример:
Ввод: 026008 Вывод: счастливый
Ввод: 126125 Вывод: несчастливый
Пример:
Ввод: 026008 Вывод: счастливый
Ввод: 126125 Вывод: несчастливый
Ответ дал:
0
Получилось что-то из того, что я выложила?
Ответ дал:
0
var
num: integer;
begin
read(num);
if((num div 100000 + num div 10000 mod 10 + num div 1000 mod 10) = (num div 100 mod 10 + num div 10 mod 10 + num mod 10))
then write('счастливый')
else write('несчастливый');
end.
num: integer;
begin
read(num);
if((num div 100000 + num div 10000 mod 10 + num div 1000 mod 10) = (num div 100 mod 10 + num div 10 mod 10 + num mod 10))
then write('счастливый')
else write('несчастливый');
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад