Составить программу в PASCAL. 1. В последовательности чисел подсчитать произведе...

August 2022 1 6 Report

Составить программу в PASCAL.
1. В последовательности чисел подсчитать произведение чисел, кратных 3.

Answers & Comments

Hasl1337 Var x, sum: integer;
begin
  sum := 1;
  writeln('Введите последовтельность чисел.', #10, '0 - остановить программу, получить результат.');
  repeat
    readln(x);
    if(x mod 3 = 0) and (x <> 0) then sum := sum * x;
  until(x = 0);
writeln('Произведение числе кратных 3: ', sum);
end.

4 votes Thanks 0

Answers & Comments

brosheny dve igralnye kosti najti veroyatnosti sleduyushih sobytij asumma ochkov

v ocheredi v biblioteku stoyat 30 studentov sredi nih ivanov i petrov najti vero

iz korobki soderzhashej 4 sinih 3 krasnyh i 1 zelenyh karandashej dostayut naugad

opredelite desyatichnyj ekvivalent a10 dvoichnogo chisla a2 1 1001 2 1111 3

1 v posledovatelnosti chisel podschitat proizvedenie chisel kratnyh 3 2 v pos

vypolnite perevod chisel ispolzuya shemu zhelatelno podrobno kak eto poluchilos

sostavit programmu v pascal vvesti razmernost matricy i znacheniya ee elementov6eefdf6a417f55519f10e0b65a604a2b 3626

sostavit programmu v pascal vvoditsya dlina vektora i znacheniya ego elementov 1

sostavit programmu v pascal 1 v posledovatelnosti chisel podschitat proizvede

vvesti massiv a1a2a15 raspolozhit nenulevye elementy po ubyvaniyu

рекомендуемые вопросы

Helpful Links

Helpful Social