Pascal авс - написать программу, ! для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. · если все числа не превышают 30, то выведите их удвоенное произведение. · если последнее число четно, то выведите произведение первых двух чисел, уменьшенное в десять раз. · если выполняются одновременно два перечисленных выше условия, то выведите эти числа без изменения. · иначе, выведите разность первого и последнего чисел. составьте соответствующие отладочные примеры и проверьте работу каждой программы. заранее .

110

398

Посмотреть ответы 2

Ответы на вопрос:

Ole4ka2135

Информатика

4,5(97 оценок)

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.

Новоселова1Лиза

Информатика

4,5(9 оценок)

Const m1: set of integer = [-2..4]; m2: set of integer = [-2..4]; var x,y,i,j,k,n: integer; begin x: =-3; y: =-3; for i: =1 to 7 do begin if x in m1 then k: =1; for j: =1 to 7 do begin if y in m2 then n: =1; if (k = 1) and (n =1) and (y+x=0) then write('y',y: 3,'x',x: 2); y: = y+ 1; n: =0; end; x: = x+ 1; y: =-3; k: =0; writeln; end; end.