Задать вопрос!

Задать вопрос!

Все категории

4 года назад

12

Пожалуйста номер 79 80 81 дам 10 баллов

Пожалуйста номер 79 80 81
дам 10 баллов

Информатика

1 ответ:

mir20184 года назад

0 0

81.липы,осины,берёзы.79.2 игрок.80.2кончая,3.коник,4.там просто стрелочка.1слово я не помню.

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

ПОМОГИТЕ ПРОШУ 8 КЛАСС Определите значение переменной после выполнения фрагмента алгоритма: f:=1 ну для i от 1 до 4 f:=f+i*2 кц

Стас1982 [1]

Это цикл. Начальное значение 1. Цикл будет выполняться 4 раза.
1. 1+1*2=3, теперь f равно 3.
2. 3+2*2=7, теперь f равно 7.
3. 7+3*2=13, теперь f равно 13.
4. 13+4*2=21.
После выполнения алгоритма f будет равно 21.

0 0

4 года назад

Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале

nastaishion

// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;

begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
    Writeln('Введи второй катет: ');Readln(s2);
    Val(s2, b, err);
    if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
    else begin
      Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
      Writeln('Площадь равна ', 0.5 * a * b)
    end
end
end.

0 0

4 года назад

Сообщение, записано буквами из 16—символьного алфавита, содержит 130 символов. Какой объем информации оно несет?

kotrin

130log2(16).
<span>Неужели сложно в формулу числа подставить?</span>

0 0

1 год назад

Найти призведение целых числет от а до 20. Значение а вводится с клавиатуры: 1<=а<=20

Svetik9

Program pr1;
var
a,i:integer;
p:int64;
begin
p:=1;
readln(a);
for i:=a to 20 do
p:=p*i;
writeln(p);
end.

0 0

4 года назад

Составить программу вычисления количества трехзначных чисел, которые при делении на 5 дают в остатке 2. (с помощью Pascal)

Зарема73 [2.5K]

var

i, c: Integer;

begin

c := 0;

for i := 100 to 999 do

if i mod 5 = 2 then begin

c := c + 1;

Write (i, ', '); // здесь выводятся эти числа, если это не нужно - удалите строку

end;

WriteLn;

WriteLn ('Результат = ', c);

ReadLn;

end.

0 0

4 года назад

Прочитать ещё 2 ответа