Информатика

Вопрос/Задача:

Найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры. в !

Ответы на вопрос

Ответ
Ответ разместил: Гость

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.

 

 

 

Ответ
Ответ разместил: Гость

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

                                                                           

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); 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; }

Ответ
Ответ разместил: Милана1245

вроде так.

k : = n div 2;   if odd(n) then inc(k);   writeln(k);

Ответ
Ответ разместил: людмила245

1.program ab; 2.var s, n : integer; 3.begin 4)s: =0; 5.for n: =1to10doif n mod2=0then s: =s+1; 6.writeln(s); 7.end.

Похожие вопросы

Вопросов на сайте: