GiG, что-то вроде этого: program zzz; VAR N : longint; s1, s2 : integer; BEGIN Write ("Vvedite chislo N: "); Readln (N); s1 := 0; s2 := 0; s1 := N mod 10; N := N div 10; s1 := s1 + (N mod 10); while n > 99 do n := n div 10; s2 := N mod 10; N := N div 10; s2 := s2 + N; if s1 = s2 then Writeln ("Summa pervyh 2-h i poslednih 2-h chisel ravna.") else Writeln ("Summa NE ravna."); END.
K!LT,спасибо большое тебе! у меня вопрос, ("Vvedite chislo N: ") любое число можно вводить или состоящее из 5-ти цифр например 44544 или 12221, 33333 и т.п.?
K!LT, while n > 99 do n := n div 10; препод обратил внимание на вот это "n > 99", в чем ошибка, говорит что по заданию "Дано натуральное число N, количество цифр в котором более пяти." помогите пожалуйста, у меня с информатикой плохо, а здать надо (((
GiG, while n > 99 do n := n div 10; -- этим уменьшаем разрядность числа N (убираем по одной цифре справа) пока N не станет меньшим 100 (т. е. от 10 до 99). Это и будут первые две цифры числа N. Далее находим их сумму. P. S. Для ясности в программе все n замени на N.
Для заданного положительного E и заданного x вычислить сумму ряда с точностью E. Значение параметра m, входящего в некоторые варианты, вводится с клавиатуры. Суммирование ряда завершается, если модуль очередного слагаемого меньше E. Значение суммы сравнить с соответствующим значением в левой части равенства. Действительные типы объявить extended. Предусмотреть ограничение количества слагаемых ряда для предотвращения "зацикливания" программы. Пожалуйста напишите следующую программу [Pascal] : ln(1-x)=-x-x"2/2- x"3/3- x"4/4- x"5/5-… |x|<1 , еси не понятно то вот upwap.ru/826374 .Заранее большое спасибо, буду очень благодарен!
вот тут мне написали програмку: program task; var i:integer; x,k,sum:real; begin x:=7; sum:=-x; i:=2; repeat sum:=sum-(power(x,i))/i; inc(i); if i>1000 then break; until (abs(power(x,i)/i)<1); writeln("First :",sum:2:2); writeln("Second: ",ln(1-x)); end. вот только она не работает, выдает ошибку Error 36: BEGIN expected, замечу, что по его словам, сделавшего мне эту лабу, программа работает, кто может помочь, посмотреть работает ли она, или найти ошибку, плизз
Всем доброго времени суток. Помогите решить задачу на делфи(с кнопкой). Звучит следующим образом: "составте программу подсчета числа четных цифр, используемых в записи N-значного числа M".
pascal! Упорядочить по возрастанию массив действительных чисел a1, ..aN, используя алгоритм сортировки обменами - II. плизз пожалуйста напишите програмку на паскале, тема алгоритмы упорядочивания
20 мар 2010 в 01:26