Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
1. Прием информации: мышь, клавиатура
2.Запоминание : жесткий диск
3.Процесс мышления: Процессор и видеокарта
4. передача информации: вывод информации на монитор или передача ее на флеш- накопитель
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
{требуются переменные под длинны сторон, для площади и промежуточная для полупериметра;
программа:}
Program n1;
var a,b,c,S,p: real; {описание переменных}
begin
readln(a,b,c); //ввод данных
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',S);
end.
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int mas[20] = {};
int buff = 0;
for (int i = 1; i <= 20; i++){
cout << "Введите " << i << " число" << endl;
cin >> mas[i];
if (mas[i] % 2 == 0)
{
buff++;
}
}
cout << "Количество чётных: " << buff << '\n';
cout << "Количество нечётных: " << 20-buff << '\n';
}