#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';
}
<u><em>Задание 1</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
else Writeln(sqrt(x+6*x))
end.
<u><em>Задание 2</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a,b,c:real;
Write('Введите стороны треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a=b) and (b=c) then Write('равносторонний')
else begin
if (a=b) or (b=c) or (a=c) then Write('равнобедренный ');
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or
(b*b+c*c=a*a) then Write('прямоугольный')
else Write('непрямоугольный')
end;
Writeln;
var p:=(a+b+c)/2;
Writeln('Площадь равна ',sqrt(p*(p-a)*(p-b)*(p-c)))
end.
Var x,y:real;
begin
readln(x,y);
if (abs(x)<=1)and(y<=1)and((y>=-x)or(y>=x))
then writeln('Yes') else writeln('No');
end.
Пример:
0.5 -0.4
Yes
var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
В информатике с таким понятием это - ГРАФ