4 года назад

Решите плз , это информатика 8 класса.

Знания

Информатика

1 ответ:

PATRINIKA [1.4K]4 года назад

0 0

1. А2=15/5=3
В2=15-3*5=0
А3=3+5^2=28
В3-0/5+28=28

Ответ: А3=28, В3=28;

2. а) А2=3+6=9
А3=5+1=6
С1=3
С2=(9+6+5+4)/4=24/4=6
С3=3+6=9

Ответ: С1=3, С2=6, С3=9

б) А1=2+3=5
А2=2
А3=7+1=8
С1=5+2=7
С2=8
С3=(7+8)/2=7,5

Ответ: С1=7, С2=8, С3=7,5;

3. В прикрепленных.

4. 1) 25-18=7 - средняя стрельба
2) 25-15=10 - средняя скорость
3) 7-5=2 - средняя стрельба, высокая скорость
4) 10-5=5 - средняя скорость, высокая стрельба
5) 25-5-2-5=13 - высокая скорость, высокая стрельба.

Ответ: 13.

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

Напишите фрагмент кода заполнения массива А по предлагаемому правилу (массив объявлен как a:harry [-3..3]of integer):значение эл

ОльгаКабышева

//1

for i := -3 to 3 do

Read(a[i]);

//2

Randomize;

for i := -3 to 3 do

a[i] := Random(101) - 50;

//3

for i := -3 to 3 do

a[i] := 5 * i;

//4

Randomize;

for i := -3 to 3 do

a[i] := Random(41) + 150

0 0

1 год назад

Пожалуйста зависит оценка четверти плиз сделайте

Ailina

1) 1001010101 (2)= 1125(8) = 255(16)
2) 417
3) 1023
4) 196
5) 11000101
6) 10110100
7) 1111

0 0

3 года назад

Почему не работает калькулятор(ничего не работает кроме деления на 0)? Прошу помогите пажалуйста program calc; var operation: ch

Lime Photographer...

Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.

0 0

4 года назад

Заполнить массив из 12 элементов случайными числами от -20 до 10. Вывести индексы отрицательных элементом

ХочуМани [33]

Const
   n = 12;
Var
   A:array[1..12] of integer;
   i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(31)-20;
    Write(' ',A[i])
    End;
WriteLn;
Write('Номера отрицательных элементов:');
For i:= 1 to N do
    if A[i] < 0 then Write(' ',i)
End.

0 0

4 года назад

Помогите завтра надо,а то 2 поставят!

Александр Бортулев

По горизонтали
3. структура
4. системный подход
5. черный ящик
8. система
9. подсистема
10. техническая
по вертикали
1. подсистемы
2. системный эффект
6. надсистема
7. природной

0 0

4 года назад