Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var kp:=a.Where(t->t>0).Count;
var kn:=a.Where(t->t<0).Count;
Writeln('Положительных ',kp,', отрицательных ',kn);
if kp>kn then Writeln('Положитьельныъ больше')
else
if kn>kp then Writeln('Отрицательных больше')
else Writeln('Положительных и отрицательных поровну')
end.
<u>№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (min,max):=(a.Min,a.Max);
Writeln('Минимум ',min,', максимум ',max);
if Abs(min)<Abs(max) then Writeln('Модуль минимума меньше')
else
if Abs(max)<Abs(min) then Writeln('Модуль максимума меньше')
else Writeln('Модули максимума и минимума равны')
end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Var
a: Array [0..9] of Integer;
n, min,max: Integer;
begin
readln(n);
min:=9;
max:=0;
while (n > 0) do begin
inc(a[n mod 10]);
if n mod 10<min then min:=n mod 10;
if n mod 10>max then max:=n mod 10;
n := n div 10;
end;
for n := 0 to 9 do
if a[n] = 3 then writeln('В числе есть 3 одинаковые',n);
writeln('Максимальная цифра ',max);
writeln('Минимальная цифра ',min);
end.
Тест для числа:
222778999
В числе есть 3 одинаковые 2
В числе есть 3 одинаковые 9
Максимальная цифра 9
Минимальная цифра 2
Решите задачи черезCodeblocks(TXLib.h) Условие: 1) заполнить массив числами 10,12,14,16,18,20,22,24,26,28,30. 2) Заполнить масс
Korosta
Include <stdio.h>
int main ()
{
const int SIZE = 12;
int array [SIZE] = {10};
for (int i = 1; i < SIZE; i++)//Task1
array[i] = array[i - 1] + 2;
//Task2
array[0] = 1;
for (int i = 1; i < SIZE; i++)
array[i] = array[i - 1] * 2;
//Task3
int Data[SIZE - 2] = {};
for (int i = 0; i < SIZE - 2; i++)
scanf ("%d", &Data[i]);
for (int i = 0; i < SIZE; i++)
printf ("[%d] = %d", i, Data[i]);
//task 4 = task 3, но SIZE = 7
}