Ответ:
var X, Y: Real;
begin
WriteLn("Введите значение аргумента: ");
ReadLn(X);
// так как деление на ноль вызовет ошибку, исключаем это
if (X <> 0) then
begin
Y:=1/X*X+4*X+5;
WriteLn("Y= ", Y);
end;
else
WriteLn("Введен недопустимый аргумент");
end.
2 у одной 2 у другой и у другой 2 а у последней зеркало
1.Анализированные
синтезированные
2.Понятие "информационная культура" характеризует одну из граней культуры, связанным аспектом жизни людей.
В широком смысле под информационной культурой понимают совокупность принципов и реальных механизмов,обеспечивающих позитивное взаимодействие этнических и национальных культур, их соединение в общий опыт человечества.
Type LinMass = array [1..1000] of Integer;
<span>Var A : LinMass; N, i, j : Integer; </span>
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=1;
while i <= n do
if (A[i] mod 2 = 0) and (A[i] mod i = 0) and (A[i] div 1000 = 0) and (A[i] div 100 > 0)
then begin
for j:=i+1 to n do A[j-1]:=A[j];
n:=n-1
end
else i:= i+1;
For I := 1 To N Do
write(a[i]:6);
<span>end.</span>
#include <iostream>
using namespace std;
int main(){ double a;
int tmp;
cout <<"Введите число"<<endl;
cin>> a; tmp = (int)a;
cout <<tmp<<endl;
cout << a - tmp <<endl;
return 0;
}<span>
</span>