Дан фрагмент программы:
x:= 90;
write ( 'ответ: ', х: 2,'км/ч');

На экране будет выведено:

ответ: 90 км/ч
ответ:
90
км/ч

1)
#include <stdio.h>
#include <stdlib.h>

int sover (int n)
{
  int sum = 0;
  for (int i = 1; i<=n/2; i++)
    if (n%i==0) sum+=i;
  if (sum==n)
    return 1;
  else return 0;
}
int main()
{
  int n;
  printf ("N = ");
  scanf ("%d",&n);
  if (sover(n)==1)
    printf ("Sovershennoe");
  else printf ("Ne sovershennoe");
  printf("\n");
  system ("PAUSE");
  return 0;
}

2)
#include <stdio.h>
#include <stdlib.h>

int main()
{
  for (int i = 1; i<=5; i++)
  {
    for (int j = 1; j<=5-i+1; j++)
      printf ("%d ",5+i-1);
    printf ("\n");
  }
  system ("PAUSE");
  return 0;
}

1.
var x:integer;
begin
readln(x);
if x>0 then writeln(x,' - положительное')
 else if x<0 then writeln(x,' - отрицательное')
  else writeln(x,' = 0');
end.

Пример:
-125
-125 - отрицательное

2.
var x,y,z,k:integer;
begin
readln(x,y,z);
if x>0 then k:=k+1;
if y>0 then k:=k+1;
if z>0 then k:=k+1;
writeln('количество положительных чисел = ',k);
end.

Пример:
-125 84 67
количество положительных чисел = 2

3.
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln(x,' - чётное')
 else writeln(x,' - нечётное');
end.

Пример:
125
125 - нечётное