Нужно составить алгоритм. Введите с клавиатуры числа c и m. Если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое значений этих чисел. Иначе, найдите и выведите сумму c и m.
Program A3;varb,c,i,m:integer;a:real;beginwriteln('Vvedi C');readln(c);writeln('Vvedi M');readln(m);if c0 then begin a:=(c+m)/2; writeln('srednee arifmet = ',a); end;if c>m then writeln('summa = ',c+m);end.
Если помог нажми "Спасибо"
Program A3;varb,c,i,m:integer;a:real;beginwriteln('Vvedi C');readln(c);writeln('Vvedi M');readln(m);if c0 then begin a:=(c+m)/2; writeln('srednee arifmet = ',a); endelse writeln('summa = ',c+m);end.
Новая версия :D
ага, а так бы человеку 2 влепили, ибо не все предусмотрел!)))
воу воу) ахах))
Program A3; var b,c,i,m:integer; a:real; begin writeln('Vvedi C'); readln(c); writeln('Vvedi M'); readln(m); if c0 then begin a:=(c+m)/2; writeln('srednee arifmet = ',a); end else writeln('summa = ',c+m); end.
есть предложение тогда сделать чтобы при с<m и c<0 выводило сумму
не то имел ввиду) если с-меньшее, и с-меньше нуля, то должна вывести сумму, а у тебя не выведет)
UPD
а не проще так: if (c0) then..... else.... и все)))
можно, вообще вариантов куча, я делаю так как я делаю) xD (как привык точнее)
два if подряд-потеря в скорости выполнения)))
ахахах) оно есть не спорю, но ты не кибер робот чтобы уловить задержку) давай скажи мне еще что за то что она на мили секунду дольше 2 поставят :))
ну на олимпиадах теперь проверяют и время работы проги... старые алгоритмы некоторые не проходят... тут незаметно, не спорю))) но когда таких десятка 4-ре подряд... то у кого-то могут не выдержать нервы)))
Ахах тут школьные задания) Тем более если кто-то идет на олимпиаду не станет здесь писать "дайте решение" я думаю они умеют делать)))) Ну а то что на олимпиаде таймеры aka счетчики ставят это норма, давно пора) так что для школьной аудитории эти проги отлично подойдут)