Program lol; var a: integer; begin for a: =100 downto 1 do begin if a mod 3 = 0 then writeln(a); end; end.p.s. в строке for a: =100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает
Спасибо
Ответ дал: Гость
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Ответ дал: Гость
ну если исходить из того, что китайская письменность основана на иероглифах, то ближе всего скорее древнеегипетская письменность, которая также основана на иероглифах. думаю так.
Популярные вопросы