1. прежде чем переходить любую дорогу, остановись на краю тротуара.
2. внимательно посмотри налево и направо и выясни: какая же это дорога — с односторонним или с двусторонним движением.
3. прежде чем начнёшь переходить дорогу, убедись, что все транспортные средства находятся от тебя на безопасном для перехода расстоянии.
4. пересекай проезжую часть быстрым шагом, но не беги.
5. переходи дорогу под прямым углом к тротуару, а не наискосок.
и самое главное:
будь внимателен всё то время, пока ты переходишь дорогу!
Спасибо
Ответ дал: Гость
//pascal abc.net 3.1 сборка 1256 var a,b,c,s,p: real; begin readln(a,b,c); if (a+b> c) and (b+c> a) and (a+c> b) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s=',s); end else writeln('такого треугольника не существует.'); end. пример ввода: 3 4 3 пример вывода: s=4.47213595499958
Ответ дал: Гость
program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет элементов которые меньше}writeln; writeln('количество элементов=',k); end.
Популярные вопросы