Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.

@Валентина90 · Регистрация: 03.04.2013

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

@Федя Форточкин · 05.04.2013, 09:48

Валентина90, вот:

Pascal

var
i,leng:byte;
s:string;
summ:integer;
begin
summ:=0;
for i:=0 to 100 do
begin
s:=IntToStr(i);
leng := length(s);
if s[leng] = '3' then
inc(summ, i);
end;
writeln(summ);
end.

Kodzaev · 05.04.2013, 09:52

Не надо переводить в строку. Можно проще:

Pascal

Var
  i: Byte;
  s: Integer;
BEGIN
For i:=1 to 100 do
If i mod 10=3 Then
s:=s+i;
Writeln(s);
END.

@Федя Форточкин · 05.04.2013, 09:55

Kodzaev, действительно проще

@Валентина90 0 / 0 / 0 Регистрация: 03.04.2013 Сообщений: 4
		1
	Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3. 05.04.2013, 08:22. Показов 3075. Ответов 3 Метки нет (Все метки) Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3. 0

@Федя Форточкин 69 / 83 / 33 Регистрация: 09.12.2012 Сообщений: 222 Записей в блоге: 3
	05.04.2013, 09:55	4
	Kodzaev, действительно проще 0

Опции темы