Сколько примерно весит один отпечаток пальца? ​

1 грамм

ответ

мне кажется,что 1

Данная программа выдаёт ошибку. давайте для начала её отладим program summ; var a, b, c: integer; begin       writeln ('введите первое число:   ' );           readln (a);         writeln ('введите 2-рое число: ');         readln (b);         c: a+b;                                 {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так  c: =a+b;     }         writeln ( 'результат =' ,c); end. ну а теперь можно её и разобрать var a, b, c: integer;                               объявляем переменные begin     writeln ('введите первое число:   ' );     выводим на экран предложение ввести число     readln (a);                                         присваиваем переменной а введённое число     writeln ('введите 2-рое число: ');         выводим на экран предложение ввести число   readln (b);                                         присваиваем переменной в  введённое число   c: =a+b;                                         присваиваем переменной с сумму чисел а и вwriteln ( 'результат =' ,c);                     выводим результат end.

Паскаль авс. программа вывводит дату следующего дня. чтоб не утяжелять программу, не стал писать проверку правильности введения даты - то есть пользователь должен вводить только правильные цифры : ) program upmixer; var   day, month, year: integer; begin writeln('введите дату: '); write('день: '); read (day); write('месяц: '); read (month); write('год: '); read (year); day: =day+1; {если было введено 29 февраля високосного года} if mod 4)=0) and ((year mod 100)< > 0) and (month=2) and (day=30)) then   begin       day: =1;       month: =month+1;   end; {если было введено 28 февраля невисокосного года} if mod 4)< > 0) and (month=2) and (day=29)) then   begin       day: =1;       month: =month+1;   end; {другие дни} if ((day=31) and ((month=4) or(month=6) or (month=9) or (month= then   begin       day: =1;       month: =month+1;   end; if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month= then begin       day: =1;       month: =month+1; end; {31 декабря} if ((day=32) and (month=12)) then begin       day: =1;       month: =1;       year: =year+1; end; writeln('завтра ', day,' ',month,' ',year); end.