Клавиша Caps Lock включает.
1 задание 2DF = 735 из шестнадцатиричной системы в десятичную
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
#include <stdio.h>
int main(){
float x, y;
x = 3.5; y = 0; //Так как из задания не понятно, откуда берутся числа
if(x > 0){
float k = x*x + y*y;
if(k >= 3*3 && k<=5*5)
printf("Принадлежит");
else
printf("НЕ принадлежит");
}
return 0;
}
Ответ:
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.