Два числа вводятся с клавиатуры. На паскале:
program test;
var a, b: real;
begin
write('Enter a, b: ');
readln(a, b);
if a > b then
writeln(a)
else if a < b then
writeln(b)
else
writeln(a, ' = ', b);
readln;
end.
1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
Поскольку не указано, на каком языке нужно написать программу, приведу код на языке С++:
#include <iostream>
using namespace std;
int main(){
int a, b;
cin >> a >> b;
cout << "Max: ";
if (a>b) cout << a;
else cout << b;
return 0;
}