4 года назад

Ребят, срочно!!! 50 БАЛЛОВ!!! ПАСКАЛЬ!!! 2 И 3 ЗАДАНИЕ!!! 50!!!

Знания

Информатика

1 ответ:

Evrina [14]4 года назад

0 0

Задание #2

Var r, rz, g, gz, fin: integer;
Begin
r := StrToInt(Edit 1. Text) ;
rz := StrToInt(Edit 2. Text) ;
g := StrToInt(Edit 3. Text) ;
gz := StrToInt(Edit 4. Text) ;
fin := ( r * rz) + ( g * gz) ;
Edit 5. Text := IntToStr(fin) ;
End;

Задание #3

Var x, fom: integer;
Begin
x := StrToInt(Edit 1. Text) ;
fom := ((3 * sqr(x)) /sqrt(x + 2)) - 4;
Edit2.text := IntToStr(fom) ;
End;

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

Нужна программа в паскале ABC Задача: Дан одномерный массив C(N). Удалить элементы одномерного массива, которые больше среднего

Рина Корж [30]

program fantscrin;

var a,c: array [1..1000] of integer;

i,n,s,j:integer;

Begin

write('N = '); readln(n);

s:=0;

for i:=1 to n do

begin

write('c[',i,'] = '); readln(c[i]);

s:=s+c[i];

end;

writeln('S = ', s);

j:=0;

for i:=1 to n do

if c[i] > s / n then

begin

j:= j + 1;

a[j]:= c[i];

end;

for i:=1 to j do

write(a[i], ' ')

End.

0 0

3 года назад

В вазочке лежат 18 яблок и несколько груш. Сообщение о том, что из вазы достали грушу, содержит 2 бита информации. Сколько всего

Einshine Canadian...

Всего фруктов в вазе 20

0 0

4 года назад

ПОМОГИТЕ!!! 20 БАЛЛОВ!! (г,д,е,ж)

Перманент [55]

Решение на фото прилагаю

0 0

3 года назад

Напишите программу в pascal Задаются границы диапазонанайти сумму тех чисел которые четные

Мария-Г

var a,b,i,z,x:integer;

q:array [1..20] of integer;

begin

write('Верхняя граница='); readln(a);

write('Нижняя граница='); readln(b); x:=a-b; randomize;

for i:=1 to 20 do

begin

q[i]:=random(x)+b;

write(q[i],' ');

if (q[i]mod 2=0) then z:=z+q[i];

end;

writeln;

write('Сумма четных чисел=',z);

end.

0 0

4 года назад

Как получить число 4889 за 21 ход с 0 если можно прибавлять 1 и умножать на 2

lSD34 [33]

Ответ:

1) 0 + 1 = 1

2) 1 + 1 = 2

3) 2 + 1 = 3

4) 3 + 1 = 4

5) 4 * 2 = 8

6) 8 * 2 = 16

7) 16 + 1 = 17

8) 17 + 1 = 18

9) 18 + 1 = 19

10) 19 * 2 = 38

11) 38 * 2 = 76

12) 76 * 2 = 152

13) 152 * 2 = 304

14) 304 * 2 = 608

15) 608 + 1 = 609

16) 609 + 1 = 610

17) 610 + 1 = 611

18) 611 * 2 = 1222

19) 1222 * 2 = 2444

20) 2444 * 2 = 4888

21) 4888 + 1 = 4889

Объяснение:

Гораздо проще подобрать порядок действий, если рассматривать конечное число в двоичной системе счисления:

$4889=1001100011001_2$

Все вычисления становятся гораздо проще и нагляднее, ведь для двоичного числа умножение на два -это просто появление справа одного нуля,

а добавление единицы -если справа (т.е. в младшем разряде) был нуль, то станет единица, а если была единица, то станет нуль, а единица перейдёт в следующий разряд (и там повторится тот же выбор).

Таким образом очень легко получить число 4889 этими действиями в двоичной системе. Получить его можно разными комбинациями указанных действий, нужно только лишь продумать действия так, чтобы их число получилось равным 21.

Вот как это выглядит, если показать результаты в двоичном виде (смотри прилагаемую картинку):

0 0

4 года назад