Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if a<b and a<c and a<d then
begin
writeln(a);
end;
if b<a and b<c and c<d then
begin
writeln(b);
end;
if d<a and d<b and d<c then
begin
writeln(d);
end
else
begin
writeln(c);
end;
end.
На C++
#include <iostream>using namespace std;int main(){
/*
k - это колличество чисел в последовательности
now - считываемое число
min - искомое значение
*/
int k, now, min = 30001;
cin >> k;
for( k; k > 0; k--){
cin >> now;
if( (now % 5 == 0) && (now < min) ){
min = now;
}
} cout << min; return 0;
}
2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.
Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5
3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.
Пример:
b = 2
s = 40
1)Мульти: 16=2 в 4 ст. 1 символ=4 бит
120*4=480 бит
Пульти: 32=2 в 5 ст. 1 символ=5 бит
96*5=480 бит
Сообщения равны.
2) 130*I=650
i=5 бит вес символа