1. #include
using namespace std;
int main (){
int a, b;
cout << "Введите числа: " << endl;
cin >> a >> b;
if (a < b){
cout << "Минимальное число - первое." << endl;
}
else if (a==b){
cout << "Числа равны." << endl;
}
else {
cout << "Минимальное число - второе." << endl;
}
}
2. #include
using namespace std;
int main (){
int a;
cout << "Сколько часов играет Тим?" << endl;
cin >> a;
if(a >= 8){
cout << "Тим здоров." << endl;
}
else {
cout << "Тим болен." << endl;
}
}
Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.
i=6
v=i*k
v=6*2048=12288 бит=1536 байт=1,5 кбайт
Ответ: 1.5кбайт
Правая кнопка мыши->"Свойства"
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger(4).Min)
end.
<u>Пример</u>
4 5 6 7
4