Const n=5;m=6; var a:array[1..n,1..m]of integer; b:array[1..m]of longint; k,i,j:integer; p:longint; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(20)-10; write(a[i,j]:4); end; end; writeln;
for j:=1 to m do begin p:=1; for i:=1 to n do if (a[i,j]mod 2=0)and(a[i,j]>0) then p:=p*a[i,j]; if p<>1 then begin k:=k+1; b[k]:=p; end; end; for i:=1 to k do write(b[i]:8); end.
Это решение при задании вручную этих чисел: Program sadadasf; var i,k,l: integer; begin Writeln('Введите первое целое двухзначное число:'); readln(i); Writeln('Введите второе целое двухзначное число:'); readln(k); If k>i then begin k:=k*k; i:=i*2; end; If i>k then begin i:=i*i; k:=k*2; end; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
Это решение при задании чисел в самой программе: Program sadadasf; var i,k,l: integer; begin i:=5; k:=3; If k>i then begin k:=k*k; i:=i*2; end; If i>k then begin i:=i*i; k:=k*2; end; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
using namespace std;
int main()
{
int month, day, total_days;
int days_per_month[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
cout << "\nEnter month (1 to 12): ";
cin >> month;
cout << "Enter day (1 to 31): ";
cin >> day;
total_days = day;
for(int j=0; j<month-1; j++)
total_days += days_per_month[j];
cout << "Total days from start of year is: " << total_days << endl;
cin.get();
cin.get();
return 0;
}