сумма трехзначных чисел, которые деляться на 7

@Учениц@ · Регистрация: 30.10.2010

Author24 — интернет-сервис помощи студентам

1) Найти сумму трехзначных чисел, которые деляться на 7.
2) Найти значение функции у=2х3-iх+5, где аргумент приобретает целочисельное значение на промежутке [-7;5].
3) Найти среди целых чисел корни системы уравнений (ху=60;х*х+у*у=169)
4) Найти все трехзначные числа, равные сумме кубов своих цифр.

@Mad_Dog · 30.10.2010, 12:25

Сообщение от Учениц@

1) Найти сумму трехзначных чисел, которые деляться на 7.

Pascal

Program Test;
Uses Crt;
Var
  j,Sum:word;
 
BEGIN
  j:=100;
  Sum:=0;
  while (j<1000) and (j mod 7 <>0) do Inc(j);
  repeat
    Sum:=Sum+j;
    Inc(j,7)
  until j>1000;
  writeln('SUMMA=',Sum);
  repeat
  until KeyPressed
END.

@SuPeR XaKer · 30.10.2010, 16:44

-IV-

Pascal

Uses
 CRT;
Var
 i:integer;
 e,d,s:integer;
begin
Clrscr;
for i:=100 to 999 do
if i=(exp(3*ln(i div 100))+sqr(i div 10 mod 10)*(i div 10 mod 10)+sqr(i mod 10)*(i mod 10)) then
begin
writeln(i);
end;
readkey
end.

@Учениц@ · 30.10.2010, 20:19 **[ТС]**

огромное спасибо всем кто мне помог!

желаю вам приятнейших выходных!

@Учениц@ 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 6
		1
	сумма трехзначных чисел, которые деляться на 7 30.10.2010, 12:12. Показов 1661. Ответов 3 Метки нет (Все метки) 1) Найти сумму трехзначных чисел, которые деляться на 7. 2) Найти значение функции у=2х3-iх+5, где аргумент приобретает целочисельное значение на промежутке [-7;5]. 3) Найти среди целых чисел корни системы уравнений (ху=60;хх+уу=169) 4) Найти все трехзначные числа, равные сумме кубов своих цифр. 0

@Учениц@ 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 6
	30.10.2010, 20:19 [ТС]	4
	огромное спасибо всем кто мне помог! желаю вам приятнейших выходных! 0

Опции темы