1)
Var
A,B,C:real;
Begin
WriteLn('Введите значения углов в градусах:');
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B+C=180 then
Begin
WriteLn('Существует');
if (A = 90)or(B = 90)or(C = 90) then Write('Является прямоугольным')
else Write('Не является прямоугольным')
End
else WriteLn('Не существует')
End.
2)
Var n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4);
End.
1)Запрос информации-обрабатывается
2)Движение мышки на экран-передаётся
3)Вид фаила (jpg и т.д.) когда мы его сохраняем-сохраняется
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
<span>
using System;
namespace Matrix
{
class MainClass
{
private static int size; // Размер матрицы
public static void Main (string[] args)
{
size = Int16.Parse(Console.ReadLine ());
int[,] matrix = new int[size, size];
for (int i = 0; i < size; i++) {
for (int j = 0; j < size; j++) {
if (i == 0 || j == 0 || i == (size - 1) || j == (size - 1)){
matrix [i, j] = 1;
} else {
matrix [i, j] = 0;
}
}
}
/*for (int i = 0; i < size; i++) { // Вывод матрицы в консоль
for (int j = 0; j < size; j++) {
Console.Write (matrix [i, j]);
}
Console.WriteLine ();
}*/
}
}
<span>}</span>
</span>
Program geron;
var A,b, c,p,s:real;
begin
readln(a,b, c);
p:=0.5*a*b*c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника: ',s);
end.
