office
?>

Какие есть операторы? и что делает каждый из них?

Информатика

Ответы

VladimirovichKazakova1202

имя программы program

начвло конец begin и end

пременая var

целое число integer

вывод write

вывод с новой writeln

модуль числа abs

синус числа sin

косинус cos

логарифм числа ln

вычесление пи pi

возведение в квадрат sqr

и квадратный корень числа sqrt

dionissia2
Var a: array[1..1000]of integer; b: array[1..1000]of integer; i,n,summ: integer; begin writeln('введите кол-во цифр'); readln(n); writeln('введите цифры'); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if (a[i]> =10)and (a[i]< 100) then b[i]: =a[i]; end; for i: =1 to n do begin if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 4=0) then summ: =summ+a[i]; end; for i: =1 to n do begin if b[i]> 0 then write(b[i],' '); end; writeln; write('сумма 3-х значных чисел кратных 4=',summ); end.
Kochetova92
Const   n = 5; m = 5; var   a: array [0..m, 0..n] of shortint;   i, b, c: integer; begin   for i : = 1 to m do   begin     for b : = 1 to n do     begin       a[i, b] : = random(-90, 0);       write(a[i, b]: 4);       if (i = m) then         if (a[i, b] mod 4 = 0) then           c += 1;     end;     writeln( (i = m) and (b = n) ? ' ' + c : '');   end;   writeln(); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какие есть операторы? и что делает каждый из них?
Ваше имя (никнейм)*
Email*
Комментарий*