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 и т.п.?

GiG, N объявлена как переменная типа longint, значит может иметь значение до 2147483647.

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.

K!LT, еще раз огромное тебе спасибо, СДАЛЛ!!!:disko:, объяснил ему как ты сказал )

выручайте. нужно ка-то рассчитать пропускную способность канала для просмотра видео 1280х1024 16 бит 18 кадров в секунду. я вообще хз

Для заданного положительного 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. плизз пожалуйста напишите програмку на паскале, тема алгоритмы упорядочивания

Кто нибудь умеет делать Базы Данных в ACCESS? Если правильно сделаете, положу 100 рублей на телефон. Пишите в бокс