var
a: integer;
begin
writeln('Введите целое число');
readln(a);
if a mod 2 = 1 then writeln('Число нечетное')
else writeln('Число четное');
end.
Первая:
<span>var </span>
<span>q,a,b:real; </span>
<span>begin </span>
<span>read(a,b); </span>
<span>q:=sqrt(a*a+b*b); </span>
<span>writeln(q:2:2); </span>
<span>end. </span>
<span>Вторая: </span>
<span>var </span>
<span>a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>writeln('The next number for the numder ',a,' is ',a+1); </span>
<span>write('The previaus number for the numder ',a,' is ',a-1); </span>
<span>end. </span>
#include<iostream>using namespace std;
int main(){ int n; cin>>n; int a[n]; for(int i=0;i<n;i++){ cin>>a[i]; } int sum=0; for(int i=0;i<n;i++){ sum+=a[i]; } cout<<"Sum = "<<sum<<endl;}
Ответ:
прикладное по дизайнер математика системное по программист система программирования методист программирование и дизайнер системное по
Объяснение: