Паскаль. оператор case. напишите программу, которая по номеру месяца выдает название следующего за ним месяца (при m=1 получаем февраль, 4- май, 12- январь).

Program example; var m : integer; begin  m: =0;   writeln('номер месяца');   read(m);   case m of  1: writeln ('февраль');   2: writeln ('март');   3: writeln ('апрель');   4: writeln ('май');   5: writeln ('июнь');   6: writeln ('июль');   7: writeln ('август');   8: writeln ('сентябрь');   9: writeln ('октябрь');   10: writeln ('ноябрь');   11: writeln ('декабрь');   12: writeln ('январь');   else writeln ('это число не является цифрой');   end; end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

 

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.