4 года назад

Третье задание.пожалуйста

Знания

Информатика

1 ответ:

Idris 124 года назад

0 0

Юзай калькулятор)))) очень помогает, и программа в плей маркете есть , называется примерно myscriptcalculator как то так

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

Даны два числа А и В(положительные). Составить алгоритм нахождения: а) наименьшего общего делителя; б) наименьшего общего кратно

surokk [6]

НОД будем находить при помощи Эвклидового алгоритма, а НОК - по формуле: $lcm(a;b)=\frac{|a \times b|}{\gcd(a;b)}$ .

program nod_nok;
var
a, b, g: integer;
l: real;
function Gcd(a, b: integer): integer;
var
t: integer;
begin
while b <> 0 do
begin
    t := b;
    b := a mod b;
    a := t;
end;
Gcd := a;
end;
function Lcm(a, b, gcd: integer): real;
begin
Lcm := Abs( a * b ) / gcd;
end;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
g := Gcd(a, b);
writeln('НОД: ', g);
l := Lcm(a, b, g);
writeln('НОК: ', l:1:0);
end.

0 0

4 года назад

Составьте программу, которая выводит на экран нечётные числа от 1 до 50 в порядке убывания.(Цикл "While").

Svettttt [10.3K]

Pascal:

program decrement;
var
i: integer;
begin
i := 50;
while i >= 1 do
    begin
      if i mod 2 = 1 then
        writeln(i, ' ');
      i := i - 1;
    end;
end.

---

C++:

#include <iostream>

int main() {
    int i = 50;
    while (i >= 1) {
        if (i % 2 == 1)
            std::cout << i << ' ';
        i--;
    }
    return 0;
}

0 0

4 года назад

ПАСКАЛЬ Дано число. Дать характеристику числа: положительное, отрицательное; чётное, нечётное; целое, не целое.

Светлана 1783

Var a:real; k,m,p:string;
Begin writeln('Введите число'); readln(a);
if a<0 then k:='отрицательное' else k:=' положительное';
if a=int(a) then m:=' целое' else m:='не целое';
if a/2=int(a/2) then p:=' чётное' else p:=' нечётное ';
writeln('число ',a,' - ',k,' ; ',m,' ; ',p);
end.

0 0

4 года назад

У исполнителя Квадратор две команды, которым присвоены номера:1. прибавь 32. возведи в квадрат Первая из них увеличивает число н

Nicko2000 [24]

Решим задание наоборот, при этом меняем и команды:
1. 28 - > 2;
2. 58 -> 4.
Команда 1: вычти 3;
Команда 2: квадратный корень из числа.

а)
28 - 3 = 25 (1).
$\sqrt{25} =$ 5 (2).
5 - 3 = 2 (1).
Результат записываем снизу-вверх: 121.

б)
58 - 3 = 55 (1).
55 - 3 = 52 (1).
52 - 3 = 49 (1).
$\sqrt{49}$ = 7 (2).
7 - 3 = 4 (1).

Результат: 12111.

0 0

4 года назад

Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу для определения массы молекул кисл

АндрейГордей

Uses crt; (Подключение внешних файлов)
Var
  ves: real;
  m: real;
Begin
  clrscr;
  write('ves=');
  read(ves);
  m: = ves * 0.65;
  writeln ('Масса молекул кислорода', m:2:1, 'кг.');
  readkey;
End.

0 0

4 года назад