<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите натуральное четырехзначное число:');
var p:=1;
loop 4 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
<u>Пример</u>
Введите натуральное четырехзначное число: 2895
Произведение цифр числа равно 720
begin
var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');
var d:=Sqrt(b*b-4*a*c);
if d=0 then Writeln('x=',-b/2/a)
else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)
end.
<u>Пример</u>
Введите коэффициенты a b c: 1 -0.5 -7.5
x1=-2.5, x2=3
Сейчас вычисления совсем другие, не такие как раньше. Вычисляют погоду, ядерные реакции, движение планет. Но и задачи на компьютеры возлагают разные.Раньше не было персональных компьютеров. А сейчас они есть в довесок к супер компьютерам. Некогда раньше была принята стратегия популизировать ПК из военной сферы и области образования в область персонального использования. Поэтому сейчас пользоваться компьютером стало легче. Этому даже учат в школе. Все развивается. И растут области применения ПК.
<span><span>pазpаботка вычислительных систем и пpогpаммного обеспечения;</span><span>теоpия инфоpмации, изучающая процессы, связанные с передачей, приёмом, преобразованием и хранением информации;</span>математическое моделирование, методы вычислительной и прикладной математики и их применение к фундаментальным и прикладным исследованиям в различных областях знаний;<span>методы искусственного интеллекта, моделирующие методы логического и аналитического мышления в интеллектуальной деятельности человека (логический вывод, обучение, понимание речи, визуальное восприятие, игры и др.);</span><span>системный анализ, изучающий методологические средства, используемые для подготовки и обоснования решений по сложным проблемам различного характера;</span><span>биоинформатика, изучающая информационные процессы в биологических системах;</span><span>социальная информатика, изучающая процессы информатизации общества;</span><span>методы машинной графики, анимации, средства мультимедиа;</span><span>телекоммуникационные системы и сети, в том числе, глобальные компьютерные сети, объединяющие всё человечество в единое информационное сообщество;</span><span>разнообразные пpиложения, охватывающие производство, науку, образование, медицину, торговлю, сельское хозяйство и все другие виды хозяйственной и общественной деятельности.</span></span>
A = «Число 22 — чётное число» true (истина)<span>
B =«Волк — травоядное животное» f</span>alse (ложь)
Значения логического типа boolean занимают 1 байт и принимают
одно из двух значений, задаваемых предопределенными константами
True (истина) и False (ложь).