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

3 года назад

Оформите пожалуйста задачу в виде алгоритма "в буквах", я сам не могу понять как. Буду очень признателен

Знания

Информатика

1 ответ:

Rriokers3 года назад

0 0

1. Начало алгоритма

2. Ввод a, b и c

3. Формула sum = a + b + c

4. Вывод "a + b + c = " + sum

5. Формула prs = a * b * c

6. Вывод "a * b * c = " + prs

7. Формула sra = (a + b + c) / 3

8. Вывод "(a + b + c) / 3 = " + sra

9. Конец алгоритма

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

Среди чисел a, b, c определить количество отрицательных.

Titikaker

Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;
if a < 0 then inc (count);
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
end.

Надеюсь на лучший ответ:)

0 0

4 года назад

Определите значение функции y=0.4^2+1/x для x изменяющегося от 2 до 10 с шагом 0.5P.S Програмку пишите на TurboPaskal

NugMate

Я надеюсь ты знаешь как открыть этот файл, в отличии как пишется TurboPascal.

0 0

4 года назад

Помогите решить пожалуйста. Определите значения переменных х и у после выполнения фрагмента алгоритма б)

Nad4ka

Все проверялось с помощью программы(код ниже):

3 16
8 13
13 10
11 14
16 11
______
9 5
7 9
12 6
10 10
15 7
13 11
11 15
16 12

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
var x:= ;
var y:= ;
Println(x,y);
while x<16 do
begin
if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
Println(x,y);
end;
end.

0 0

3 года назад

По какому принципу построен этот ряд: 8 2 9 0 1 5 7 3 4 6 ?

mlijtre [50]

Цифры стоят в алфавитном порядке: 8 (Восемь), 2 (Два) ...

0 0

3 года назад

написать программу которая находит сумму четных чисел от 0 до 1000

ольга1210

var s, i: integer;

begin

s:=0;

for i:=0 to 1000 do if i mod 2 = 0 then s:=s+i;

write(s);

end.

0 0

1 год назад

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

Оформите пожалуйста задачу в виде алгоритма "в буквах", я сам не могу понять как. Буду очень признателен​

Оформите пожалуйста задачу в виде алгоритма "в буквах", я сам не могу понять как. Буду очень признателен