1 год назад

Составить алгоритм нахождения максимума двух чисел.Помогите срооочно.Дам 60 баллов.

Знания

Информатика

1 ответ:

Королева Снежная1 год назад

0 0

Какого принцина алгоритм ?

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

У гусей и кроликов вместе N лап (N - четное). Сколько может быть гусей и кроликов (вывести все возможные варианты)?

Еленка123

Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>

0 0

2 года назад

К какому языку относятся следующие знаки и что они обозначают

Николаев Андрей А... [36]

К пиктограмме.
а) Тут копают
б) Осторожно, забор!
в) Лестница
г) Нельзя сюда!
д) Второстепенная дорога
е) Там тупик (забыла название)
ж) Место для солнцезащитных очков (Очень ярко! - не помню лол)

0 0

4 года назад

Pascal)) составить программу которая выводит на экран бегущую строку

Тима923121

НА пример:

var
a,b:=integer
begin
writeln('Введите число а');
read(a);
writeln('Введите число b');
read(b);
end.
Получается, что writeln Выводит на экран, что ты ввёл/ввела в скобках.

0 0

4 года назад

Составить программу, вычисляющую x^n, где n – целое положительное число. Выполнить в 3-х циклах

апрель1963

1. Для цикла For

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
    p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
    p:=p*x;
    i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
    p:=p*x;
    i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.

0 0

3 года назад

Выполнить расчёт функиций по заданному начальному и конечному значения аргумента. Всё на ПАСКАЛЕ Организовать в программе возмож

REfSergo [20]

Решение в файлах ниже.

0 0

4 года назад