Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в цикле sum [i]: =sum+mas[i,j];
var
n: integer;
begin
readln(n);
case n mod 12 of
4: writeln('год крысы');
5: writeln('год коровы');
6: writeln('год тигра');
7: writeln('год зайца');
8: writeln('год дракона');
9: writeln('год змеи');
10: writeln('год лошади');
11: writeln('год овцы');
0: writeln('год обезьяны');
1: writeln('год петуха');
2: writeln('год собаки');
3: writeln('год свиньи');
end;
end.
var ch,n,i: longint;
ch1,s: string;
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
b1,b2,i,n,p: integer;
write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);
p: =-1;
for i: =2 to n do
p: =p*(-1);
b2: =p*b1-8;
writeln (i,' элемент = ', b2);
b1: =b2;
Популярные вопросы