program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
if b< 0 then write(sqr(b));
if i< 0 then write(sqr(i))end.
Ответ дал: Гость
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.
Ответ дал: Гость
фактографическая бд содержит краткие сведения об описываемых объектах, представленные в строго определенном формате.
документальная бд содержит обширную информацию самого разного типа: текстовую, графическую, звуковую, мультимедийную.
Ответ дал: Гость
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
Популярные вопросы