Написать программу Паскаль))) срочно!)))
10-11 класс
|
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
var
a, sum: integer;
begin
readln(a);
while a > 0 do begin
sum := sum + a mod 10;
a := a div 10
end;
writeln('Сумма цифр: ', sum);
if(sum mod 6 = 0) then writeln('Сумма цифр кратна 6')
else writeln('Сумма цифр не кратна 6');
end.
Другие вопросы из категории
чисел. Если последний элемент массива положительный, то найти max среди
элементов массива и заменить его значений последний элемент массива. Массив
распечатать. Иначе – дать сообщение «Массив остался без изменений»
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
http://primat.org/index/0-128 вот сайт что бы написать программу.
исходные данные
3)масштаб карты 120 (кол-во км в одном см)
4)расстояние между точками изображающими населённые пункты если между ними 3.5 (см)...(должно выйти 420км)
5) расстояние между насел. пунктами ... км
Напишите пожалуйста программу. К завтрашнему дню надо. С Паскалем проблемы