Файл-это некоторая последовательность байтов,имеющия имя.
Var a,b,c:real;
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.
Ответ:
#include <iostream>
using namespace std;
int sumofdigits(int n);
int main()
{
int a, b, sa, sb;
setlocale(LC_ALL, "Russian");
cout << "Введите 2 натуральных числа: ";
cin >> a >> b;
sa = sumofdigits(a);
sb = sumofdigits(b);
cout << "\nСумма цифр первого числа: " << sa;
cout << "\nСумма цифр второго числа: " << sb;
if (sa > sb)
cout << "\nСумма цифр первого числа больше, чем второго";
else if (sa < sb)
cout << "\nСумма цифр второго числа больше, чем первого";
else if (sa == sb)
cout << "\nСуммы цифр чисел равны";
}
int sumofdigits(int n) {
int sum = 0;
while (n != 0) {
sum += n % 10;
n /= 10;
}
return sum;
}
<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>
Фрактальная графика, также как векторная и трёхмерная,
является вычисляемой. Её главное отличие в том, что изображение строится по
уравнению или системе уравнений. Поэтому в памяти компьютера для выполнения
всех вычислений, ничего кроме формулы хранить не требуется. <span>Только изменив
коэффициенты уравнения, можно получить совершенно другое изображение. Эта идея
нашла использование в компьютерной графике благодаря компактности
математического аппарата, необходимого для ее реализации. Так, с помощью
нескольких математических коэффициентов можно задать линии и поверхности очень
сложной формы.</span>