Найти сумму всех n-значных чисел, кратных k (1 ≤ n ≤ 4).
5-9 класс
|
Кумир. Помогите, срочно надо!
Я так понимаю вам нужна программа на Паскале
program zadacha;
var s,k,n,p,i:integer;
begin
s:=0;
p:=1;
readln(n,k);
for i:=1 to n do p:=p*10;
for i:=trunc(p/10) to p-1 do
if i mod k=0 then s:=s+i;
write(s);
end.
Комментарий удален
Другие вопросы из категории
даны две точки в плоской прямоугольной системе координат. Напишите программу, определяющую, которая из точек находится ближе к началу координат!!!
Пример входных данных
Координаты 1-й точки >>1 2
Координаты 2-й точки >> 3 4
1 ая точка ближе
Пожалуйста с примером!!!!заранее большое спасибо!!!!!
второй ученик и т.д.). Определите, что будет напечатано в результате работы следующей программы.
Алгоритмический язык
алг
нач
целтаб Dat[1:10]
цел k, m
Dat[1]:=7; Dat[2]:=9
Dat[3]:=10; Dat[4]:=5
Dat[5]:=6; Dat[6]:=7
Dat[7]:=9; Dat[8]:=8
Dat[9]:=6; Dat[10]:=9
m:= 10
нц для k от 1 до 10
если Dat[k] < m то
m:=Dat[k]
все
кц
вывод m
кон
Читайте также
кратных k.(1 <(или равно) n<(или равно)4).
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)
Плис, напишите программу на turbo pascal