1741338 держи
........................................
Basic:
INPUT a
INPUT b
INPUT c
max = a
IF b > a THEN max = b
IF max < c THEN max = c
PRINT max
END
C#:
Внутри главного метода.
int max;
int a = int.Parse(Console.ReadLine());
int b = int.Parse(Console.ReadLine());
int c = int.Parse(Console.ReadLine());
max = a;
if (b > a)
{
max = b;
}
if (max < c){
max = с;
}
Console.WriteLine(max);
Console.ReadLine(); //чтобы программа не закрывалась сразу после выполнения
<span>Если от 0 до 18, то всего значений 19 и цвета будут от (0,0,0) до (18,18,18) понятно, что всего 19*19*19 цветов.</span>
Program pr;
uses crt;
Var
i,n:integer;
Procedure del(a:integer);
Var i:integer;
Begin
i:=1;
while (a div i<>0) do
Begin
if (a mod i=0)
then Writeln(i);
i:=i+1;
end;
end;
Begin
Writeln('Vvedite chislo');
readln(n);
del(n);
readln;
end.
program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.