С рулетки размеры бруса(220см на 11 см на 10 см) измерили с точностью 1 см. Определите его объем. Запишите ответ с учетом точности полученного результата.
ПОДРОБНОЕ РЕШЕНИЕ

 

1

архитектор - для моделирования чертежей на компьютере !

врач - картатека всех больниц хроницца   в компьютере 

бизнесмен - зновать последнии новости в интернети с компьютера

бухгалтер - расчёты с компьютера

композитор - с компьютера и специальных программ может прослушивать свои произведения и доробатовать их

секретарь - записывает в компьютер все важные зделки

писатель - пишет на компьютере свои произведения ( удобно   если что то не понравилось удалил и переделал ! и не надо портить бумагу 

художник - берёт шаблоны с компьютера и перересовывает их на холст

модельер - моделирует платья на компьютере

2 

програмист - пишет программы , а пользователь пользуется программами написаноми программистами !  

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); 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.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.