Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
Uses crt;
const n=10;
var a:array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n-1 do
begin
if abs(a[i])=abs(a[i+1])
then
begin
if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0))
then
inc(k);
end;
end;
writeln(k);
end.
CONST n = 20
DIM a(1 TO n) AS INTEGER, b(1 TO n) AS INTEGER
DIM c AS INTEGER, i AS INTEGER, j AS INTEGER
CLS
INPUT "Введите C: ", c
RANDOMIZE TIMER
PRINT "Массив А"
j = 0
FOR i = 1 TO n
a(i) = INT(3 * c * RND) + 1
PRINT a(i);
IF a(i) > c THEN
j = j + 1: b(j) = a(i)
END IF
NEXT i
PRINT
PRINT "Массив B"
FOR i = 1 TO j
PRINT b(i);
NEXT i
<em><u>Тестовое решение:</u></em>
Введите C: 4
Массив А
7 2 6 11 10 9 2 1 7 4 6 1 8 5 12 4 11 2 6 2
Массив B
7 6 11 10 9 7 6 8 5 12 11 6
Найди лишнее десятичное число и зачеркни. 23, 53, 73, 37,83 17, 20,21,37,99 40, 44, 48, 88, 42
060владислав
37 ( все, кроме него заканчиваются на 3)
20 ( единственное чётное)
42 ( не делится на 4, а все остальные делятся на 4)
В данном случае правильный ответ под номером 3.
123000
Как получился этот ответ: Е это 10 в заданной степени. Степень задаётся последующим числом после Е. В данном случае это число +4, то есть 10 в нашем примере будет в четвертой степени.
10 в 4-ой степени равно 10000.
Теперь умножаем 12,3 на 10000, получаем 123000.
Формат числа, который записывается в виде
числа с одним знаком после запятой в произведении с числом Е часто используется в вычислительной технике (кмопьютерах и калькуляторах) для того, чтобы большие числа, содержащие много цифр можно было наглядно кратко и удобно изображать.
