Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string;
i: longint;
begin
readln(s);
for i: =1 to length(s) div 2 do write(s[i]);
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();
}
1)котят 7
2)рыжих котят 5
3)зелоноглазых котят 3
4)котят рыжих и зеленоглазых 3
5)котят рыжих или зеленоглазых 3
6)рыжих и не зеленоглазых котят 3
7)не рыжих и не зеленоглазых 1
program w7w7;
var a: real;
readln (a);
if a< 0 then writeln ('otritsatelnoe chislo');
if a> 0 then writeln ('pologitelnoe chislo');
Популярные вопросы