Program gt;
var A,B,C,D,S:integer;
begin
readln(A,B,C,D);//A,B,C -в условии а D-употребление пользователем
if(D<=A)then s:=B*D else s:=C*D;
writeln(S);
end.

0 0

4 года назад

Пожалуйста помогите. ..

UgKol [17]

Извини, но моя твоя, непонимай

0 0

4 года назад

Помогите с информатикой! составить функцию в паскале которая вазвращаяет: 1 кол-во четных чисел таблицы 2 сумму нечетных чисел т

Лари Лиса [10]

Смотрите файл *.pas В ANSI кодировке, или pdf файл.
Замечания.
Раз в условии говорилось о таблице, то я решил что массив двумерный.
Раз упоминались четные и нечётные, то массив целых чисел. Некоторая вольность в том, что решил включить и генерацию отрицательных чисел. (А в условии не сказано, что они должны быть положительными.)
Вообще после задания границ массива, можно было реализовать весь функционал программы в одном двойном цикле. И генерацию и анализ и формирование результатов. Но я так понял в задании нужно, чтоб в программе были пользовательские функции.
Кого сильно напрягают комментарии, просто "срубите шапку". Я там предварительные пояснения записывал
В тексте пусть будут.

0 0

3 года назад