Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
в си:
# 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();
}
Популярные вопросы