Регистрация
ltandreeva2016
20.03.2022 10:32
Информатика
Есть ответ 👍

Рассмотрим объявления:
Var a,x: integer; z: real;
C: char; t: boolean;
Определите, какие из следующих операторов записаны верно на языке ПАСКАЛЬ:
a) z:= sqr(a) +sqr(a-2)+sin(x)-abs(a-x);
b) a:=sqrt(c*sqr(z));
c) x:= z mod 3 +a div 3 ;
d) t:= odd(x) and (a>5)

275
435
Посмотреть ответы 1

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

erkisha
erkisha
4,8(5 оценок)

pascal

var a,b: array of integer;

i,k,s1,s2: integer;

begin

s1: =0;

s2: =1;

write('введите количество элементов массива');

readln(k);

setlength(a,k);

setlength(b,k);

for i: =0 to k-1 do

begin

write('ввод данных для a[',i,']=');

readln(a[i]);

if a[i]> 0 then s1: =s1+a[i] else s2: =s2*a[i];

end;

writeln('данные массива a: ');

for i: =0 to k-1 do writeln('a[',i,'] = ',a[i]);

writeln;

writeln('данные массива b: ');

for i: =0 to k-1 do

begin

if a[i]> 0 then b[i]: =s2 else b[i]: =s1;

writeln('b[',i,'] = ',b[i]);

end;

end.

Популярно: Информатика