aWeLoL, если экзамен, то лучше сам пиши. А то на экзамене ничего не сможешь.

эх, простая задачка но тоже времени нету её делать. в общем надо делать перебором до корня из этого числа. в цикле надо проверять делится ли это число на счетчик.

помогите пожалуйста очень нужно до завтра сделать. Дама матрица порядка n*m. найти номера строк в которых все елементы одинаковы. Пример матрицы: 1 1 1 1 2 1 3 4 2 2 2 2

Вот пример строк: upwap.ru/449788

Памагъыте

advencher, сам подумать не пробывал?

advencher, берешь 2 вложенных цикла: первый выбирает строки, второй идет по этой строчке. Перед запуском 2го цикла берешь одну логическую переменную :=TRUE и одну целочисленную Х:= первому элементу строки. Потом во втором цикле сравнивай элементы строчки с Х, и если он не равен X, то логическую переменную присваиваешь ЛОЖЬ, если равен ничего не делать. Потом после этого цикла смотришь логическую переменную и если она ПРАВДА, то выводишь её. И т.д.

Привет всем! Нужна срочная помощь по решению задач на паскале, буду очень благодарен кто поможет.

Moonss, задачи то выложи

1.Найти сумму делителей натурального числа.2.Найти самую большую цифру целого положительного числа.3. Вычеслить значение с=а+в, если а – четное и с=а*b, если а – нечетное.4.Разработать алгоритм программы, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст вводится с клавиатуры

Moonss, 1.For i:=1 to c div 2 do if c mod i=0 then k:=k + 1; где с-введён.число,k колич.дел 2.max:=0; while c<>0 do begin i:=c mod 10; if i>max then max:=i; c:=c div 10; end 3. if a mod 2=0 then ... else ...; 4. var d,sh,r,p:set of integer; begin writeln(...); readln(v); d:=0..7;{дошкольники} ... p:=60..100;{пенсионеры} if v in d then wraitln("дошкольник");

Al.exeY, Спасибо за помощь