Паскаль
10-11 класс
|
1.Если два числа равны , то вывести их сумму, а иначе модуль разности
uses crt; var a,b:integer; begin read(a,b); if a=b then write(a+b) else write(abs(a-b)); end.
Другие вопросы из категории
Состояние подземных коммуникаций контролируют 37 датчиков. Определите наименьшее количество сигнальных лампочек на контрольном пункте, необходимых для идентификации этих датчиков и передачи с них информации.
Помогите, написать программу, которая в заданном четырёхзначном числе находить самую большую и самую маленькую цифру???
Дано натуральное число N. Найти сумму и количество чётных цифр. (На Си)
1)Сколько информации содержится в сообщении "на светофоре горит красный свет"? 2)Какое кол-во информации в сообщении "из коробки 8 цветными карандашами вынули чёрный карандаш"?
Скорость передачи сообщения 14400 бод(бит), предается 12586 символов в кодировке Unicode. Сколько секунд нужно на передачу сообщения?
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;