var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
Ответ дал: Гость
по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'
uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of 1 : write ( 'на дереве сидела ' ,n , ' ворона' ); 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' ); 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' ); end else write ( 'ветка обломилась! ' ); end; readln; end.
Ответ дал: Гость
100010,011101=42,35 (вос. сис.)
10010,011101=22,1d (шест. с.)
111 111 111 000 001=77701(в.с)
0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)
0,000110101=0,065(в.с) (доб. 00)
0,0110101=0,35(ш.с.)
0,11 100 110 101=0,3465(в.с.)
0,111 0011 0101=0,735(ш.с.)
Ответ дал: Гость
ответ 4: значок @ в адресе электронной почты употребляется всего лишь один раз (насколько мне известно)
Популярные вопросы