begin
var Пауков := 0;
while Пауков < 9 do
begin
if (37 - 4 * Пауков) mod 3 = 0 then
begin
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end;
end.
<span>Таблица истинности AvA&B
</span>
(алгоритм смотрите ниже)Программа:
Program popcorn;
var y,a,b : real;
begin
write ('ввести два разных числа ');
read(a,b);
if (a>b) then begin y:=a*a-b*b*b;write('разница квадрата большего и куба меньшего числа =',y);end else begin y:=b*b-а*а*а;write('разница квадрата большего и куба меньшего числа =',y);end;
end.
Алгоритм:
1)ввести два разных числа
2)найти большее число
3)написать формулу разности квадрата большего и куба меньшего числа.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var h := ReadReal('Задайте шаг h:');
var (a, b) := (-3.0, 3.0);
for var i := 0 to Trunc((b - a) / h) do
begin
var d := a + i * h;
var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;
Writeln(d:18:15, k:24:15)
end
end.
Program chisla;
uses crt;
var a,b,c : integer;
begin
Write('Введите два числа: ');
Readln(a,b);
if a>b then c:=a-b else c:=b-a;
Writeln('Разность чисел равна ',c);
end.