# include < stdio.h> # include < conio.h> void main () {
clrscr();
int x,y,c,k;
printf("vvedite x \n");
scanf("%d",& x);
printf("vvedite y \n");
scanf("%d",& y);
printf("vvedite c \n");
scanf("%d",& c);
k=x+(y/(2*c));
printf("otvet: %d \n",k);
getch();
}
Ответ дал: Гость
пример программы для паскаль
program a;
const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
Популярные вопросы