Задать вопрос!

Задать вопрос!

Все категории

Макс333 [57]

4 года назад

6

Проводя эксперимент профессор Петров все измерения производил с помощью исправных датчиков и измерительных приборов . Какое свой

ство информации при получении информации опытным путем сохраняется?

Информатика

1 ответ:

Марияzzz4 года назад

0 0

Вы смогли решить?? а я нет даже езнаю как

Читайте также

Дано вещественное число с двумя цифрами в целой части и одной цифрой в дробной части. Получить вещественное число, запись которо

Roman Nikolaevich

var

x, y, a, b, c: real;

t: integer;

begin

read(x);

t := Round(10 * x);

a := t div 100;

b := (t div 10) mod 10;

c := t mod 10;

y := c + b / 10 + a / 100;

Println(y);

end.

Или можно сократить число используемых переменных:

var

x: real;

t: integer;

begin

read(x);

t := Round(10 * x);

Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Вам даны число N и цифра D.Выведите все N-значные числа,которые не содержат цифру D, в возрастающем порядке.

Ярослав345

Var a,b:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите цифру');
read(b);
if ((a mod 10)<>b) and ((a div 10)<>b) and (a<100) then begin
a:=a+1;
write(" ",a);
end;
end.

0 0

4 года назад

С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию, а потом имя.

mb26612661 [6]

Uses crt;
var s,s1,s2:string;
i,k:integer;
begin
readln(s);
k:=pos(' ',s)-1;
for i:=1 to k do
s1:=s1+s[i];
k:=k+2;
for i:=k to length(s) do
s2:=s2+s[i];
writeln(s2,' ',s1);
end.

0 0

4 года назад

Найти максимальный элемент массива n=7 pascal

Nastya-33 [31]

program n_1;

const n=7;

var i, m: integer; a:array [1..n] of real;

begin

m:=1;

for i:=1 to n do begin

read(a[i]);

if a[i]>a[m] then m:=i;

end;

writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);

end.

0 0

4 года назад

Пять букв английского алфавита закодированы кодами личной длины: A(011),B(10),С(100),D(110),E(01) Определите,какой набор букв за

Увгения

100(C) 011(A) 01(E) 10(B) 110(D). Ответ - 3.

0 0

4 года назад