1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам
Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>
Ответ:
a = list(str(input()).split())
z = int(a[0])
e = int(a[1])
b = (input().split())
c = sum(map(int, b ))
if c%e > 0:
x = c//e + 1
else:
x = c//e
print (x)
Объяснение:
#include<iostream>
using namespace std;
int main()
{
int A;
cin >> A;
int Min = A;
int Max = A;
while(A)
{
cin >> A;
if (Max < A && A!=0) Max = A;
if (Min > A && A!=0) Min = A;
}
cout <<"Min = "<<Min<<"\n";
cout <<"Max = "<<Max<<"\n";
cout <<"Min - Max = "<<Min-Max<<"\n";
return 0;
}