var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
Задача 1)
//PascalABC.NET
begin
writeln('Введите через пробел три числа');
var a := ReadArrInteger(3);
write('Разность большего и меньшего равна ');
writeln( a.Max - a.Min )
end.
Задача 2)
//PascalABC.NET
var
y : array of real;
begin
// Запрашиваем область определений
write('Введите a: ');
var a := ReadlnReal();
write('Введите b: ');
var b := ReadlnReal();
write('Введите k: ');
var k := ReadlnReal();
// Резервируем массив для значений функции
y := new real[Round((b - a) / k) + 1];
// Заполняем массив данными
for var i := 0 to Round((b - a) / k) do
begin
y[i] := Exp(a) - Sin(a) * Cos(a);
// Следующее значение
a += k
end;
// Выводим массив на экран
foreach var i in y do
writeln(i:8:3)
end.
Результаты в приложениях
Для упрощения работы пользователя в состав современных операционных систем, и в частности в состав Windows, входят программные модули, создающие графический пользовательский интерфейс. В операционных системах с графическим интерфейсом пользователь может вводить команды посредством мыши, тогда как в режиме командной строки необходимо вводить команды с помощью клавиатуры.
Графический интерфейс позволяет осуществлять взаимодействие человека с компьютером в форме диалога с использованием окон, меню и элементов управления (диалоговых панелей, кнопок и так далее).
1) упрощаем логическое выражение
2) строим таблицу истинности