Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ помогите пожалуйста!!!!! паскаль

Автор: 603199329 16.1.2012, 14:23

1. задана арифметическая прогрессия -3,5;-3,1... Сколько чисел нужно сложить, чтобы сумма стала положительна.
2.Найти количество нечетных цифр во введенном натуральном числе.
По первой есть наброски, но не работает
program zadasha;
var s,d:real; k:integer;
begin
k:=0;
d:=0.4;
while s<=0 do begin
s:=-3.5+d;
k:=k+1;
end;
writeln('k=',k);
readln;
end.

А по второй вобще никаких мыслей, если б было известно сколько цифр в числе...

Автор: граф Монте-Кристо 16.1.2012, 14:34

В первой нужно, во-первых, написать, чему равно s до цикла, а во-вторых, исправить первую строчку в цикле на s := s + d.
Во второй задаче можно воспользоваться операторами div и mod, которые дают соответственно частное и остаток при делении.

Автор: 603199329 16.1.2012, 14:40

спасибо, первая получилась

Автор: 603199329 16.1.2012, 15:07

а со второй так ничего и не получается(((

Автор: граф Монте-Кристо 16.1.2012, 19:54

Например, если дано число n, то его последняя цифра - это n1=n mod 10, предпоследняя будет n2 = (n-n1)/10 mod 10 и т.д.

Автор: 603199329 18.1.2012, 11:17

так не смогла, а можно так
но только программа не всегда верный ответ дает, посмотрите пожалуйста)


Прикрепленные файлы
Прикрепленный файл  13.TXT ( 214 байт ) Кол-во скачиваний: 7

Автор: Sergio Ramos 18.1.2012, 18:48

По второй - вы проверяете на нечетность не цифры, а само промежуточное число.

Автор: 603199329 18.1.2012, 19:15

точно, спасибо, а если так


Прикрепленные файлы
Прикрепленный файл  13.TXT ( 224 байт ) Кол-во скачиваний: 12

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)