var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
Dim k as integer ' Объявляем глобальную переменную Sub Prog_Summa() Dim S as long, i as long S = 0 ' В переменной S накапливается сумма простых чисел for i=256 to 16384 ' цикл по всем числам, которые надо проверить k=1 ' признак простого числа Prost(i) ' В функции проверяем, что число i простое if k = 1 then S = S + i ' если i - простое, прибавляем его к S next i print S ' Выводим сумму S end sub
Function Prost(x) Dim i as long, Q as long Prost = 0 ' Значение функции пока равно 0 Q = int(sqrt(x)) ' Q=[√(x)] - предел проверки числа x на простоту for i = 2 to Q if int(x/i) = x/i then k=0 ' если х делится на i, то оно составное next i if k = 1 then Prost = x ' если x простое, то функция равна x ' Если x - составное, то функция остается равной 0 End Function
program a1;
uses crt; {эта строчка не обязательна}
var a,b:integer;
begin
readln(a);{ввод с клавіатуры 1го чісла}
readln(b);{ввод с клавіатуры 2го чісла}
if a=b then writeln('YES'){проверка и вывод на экран}
else writeln('NO'); {строчка добавит отрицание если числа не равны}
end.
Объяснение: