Составить блок-схему к задаче: Найти сумму всех n-значных чисел (1 ≤ n ≤ 4), n вводится

Знания

Информатика

1 ответ:

nikolayw77 [6]4 года назад

0 0

Смотри вложение
...............................

Читайте также

Напишите пожалуйста задачи в Паскалеz1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a)) z2 = cos(a) ^ 2 + cos(a) ^ 4

Oxanka

Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>

0 0

4 года назад

В массиве состоящим из 30 целых чисел вводят оценки 10 учениов ,Нужно вывести на экран оценки в виде таблицы: в первом столбце н

AlexP

var a:array[1..2,1..30] of integer;
i,j:integer;
Begin
   for i:= 1 to 30 do begin
       writeln('Введите номер ученика:');
       read(a[1,i]);
       writeln('Введите оценку:');
       read(a[2,i]);
   end;

   for i:= 1 to 10 do begin
      writeln(i:2,' - ');
       for j:= 1 to 30
          if a[1,j]=i then
               write(a[2,i],' ');
   end;
   readkey;
End.

0 0

4 года назад

В чем суть системного подхода приведите пример плиз

allnightlong

Ну, например, школа - это система. Все ее объекты связаны отношениями и имеют общую цель.

0 0

4 года назад

С клавиатуры вводятся два целых числа. Выведите ответ "да" если их произведение кратно 3. В противоположном случае введите ответ

Smile

Var

a1, a2: integer;

begin
a1 := 0;
a2 := 0;

writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);

if (a1*a2 mod 3 = 0) then
begin
    writeln('da');
    end
else
    writeln('net');

end.

0 0

4 года назад

8 заданий "разветвляющийся алгоритм" 75 за полное решение,помогите пожалуйста

ГомерСимпсонс [1]

=======================

0 0

3 года назад