Определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100

@shad0w · Регистрация: 14.11.2010

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

1) определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100 (цикл "пока")

2) определить сумму цифр в числе, введенном с клавиатуры
(функции див и мод)

p.s.
просто вроде

@mamedovvms · 24.01.2011, 14:11

цикл "пока" - это что то новое
функции див и мод - таких функций нет в паскале

@Puporev · 24.01.2011, 14:33

1.

Pascal

uses crt;
var a,s,k:integer;
begin
clrscr;
writeln('Первые двухзначные числа, в сумме не более 100:');
a:=7;
s:=0;
k:=0;
while s+a<100 do
 begin
  a:=a+7;
  s:=s+a;
  k:=k+1;
  write(a,' ');
 end;
writeln;
write('Их количество=',k,' сумма=',s);
readln
end.

Добавлено через 55 секунд
2.

Pascal

s:=0;
while a>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
 end;

@shad0w 4 / 4 / 1 Регистрация: 14.11.2010 Сообщений: 37
		1
	Определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100 24.01.2011, 14:03. Показов 3327. Ответов 2 Метки нет (Все метки) 1) определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100 (цикл "пока") 2) определить сумму цифр в числе, введенном с клавиатуры (функции див и мод) p.s. просто вроде 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	24.01.2011, 14:11	2
	цикл "пока" - это что то новое функции див и мод - таких функций нет в паскале 0

Опции темы

Определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100

Решение