Home
О нас
Products
Services
Регистрация
Войти
Поиск
minakoaino55555
@minakoaino55555
October 2021
1
33
Report
найти сумму всех n(1-4)значных чисел кратных k
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
dashadomracheva
Program zadacha;
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.
0 votes
Thanks 0
×
Report "найти сумму всех n(1-4)значных чисел кратных k..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.