Предмет: Информатика,
автор: ZhyzhkoElzvt
Написать программу, которая будет определять сколько чисел делиться на 3 без остатка на диапозоне от n до k
Ответы
Автор ответа:
1
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.
ZhyzhkoElzvt:
Спасибо.А чтр значит sum?
var
count, n, k, i: integer;
begin
count := 0;
write('Введите n и k:');
read(n, k);
for i := n to k do
if(i mod 3 = 0) then
count := count + 1;
write(count);
end.
count, n, k, i: integer;
begin
count := 0;
write('Введите n и k:');
read(n, k);
for i := n to k do
if(i mod 3 = 0) then
count := count + 1;
write(count);
end.
count - количество чисел
Спасибо
Известно, что "счастливый билет" в городском транспорте - это билет где сумма первых трёх и последних трёх цифр совпадает. Реализовать алгоритм, который позволяет по введенному номеру билета, определить - счастливый он или нет.
Пример:
Ввод: 026008 Вывод: счастливый
Ввод: 126125 Вывод: несчастливый
Пример:
Ввод: 026008 Вывод: счастливый
Ввод: 126125 Вывод: несчастливый
Получилось что-то из того, что я выложила?
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.
Похожие вопросы
Предмет: Математика,
автор: tkaceniluha314
Предмет: Английский язык,
автор: mixailovlamar2
Предмет: Английский язык,
автор: Viktor19372919
Предмет: Алгебра,
автор: никита22824
Предмет: Литература,
автор: utkin2005