Pascal АВС - ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ, СРОЧНО!!!!!!!
10-11 класс
|
Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.
· Если все числа не превышают 30, то выведите их удвоенное произведение.
· Если последнее число четно, то выведите произведение первых двух чисел, уменьшенное в десять раз.
· Если выполняются одновременно два перечисленных выше условия, то выведите эти числа без изменения.
· Иначе, выведите разность первого и последнего чисел.
Составьте соответствующие отладочные примеры и проверьте работу каждой программы.
Заранее спасибо.
var
a,b,c,d,p : integer;
r : real;
begin
readln (a,b,c,d);
p := 0;
if (a<=30) and (b<=30) and (c<=30) and (d<=30) then
begin
p := p +1;
r:= a*b*c*d*2;
end;
if d mod 2 = 0 then
begin
r := a*b/10;
p := p + 1;
end
;case p of
0 : writeln (a-d); //Как я понял иначе (все условия не выполняются)
1 : writeln (r);
2 : writeln (a,' ',b,' ',c,' ',d);
end;
end.
Другие вопросы из категории
Составьте программу, выводящую на экран квадраты чисел от 10 до 20
иске в виде текстового файла, закодированного шестнадцатибитным кодом UNICODE. Каков информационный объем данного файла в килобайтах?
Читайте также
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Дано натуральное число n. Написать программу вычисляющую сумму
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу