Написати в зошиті програми з розгалуженням для розв'язання задач. 1. Чи встигне спортсмен дістатися фінішу, розташованого за 5 км, якщо він а годин їде на велосипеді зі швидкістю , км/год і ь годин біжить зі швидкістю v2 км/год?
Перевод целых десятичных чисел в любую другую системы счисления осуществляется делением числа на основание новой системы счисления (в нашем случае это 8) до тех пор, пока в остатке не останется число меньшее основания новой системы счисления. Новое число записывается в виде остатков деления, начиная с последнего.
Целая часть от деления 293 div 8 = 36 36 div 8 = 4 4 div 8 = 0 0 div 8 = 0
Остаток от деления 293 mod 8 = 5 36 mod 8 = 4 4 mod 8 = 4 0 mod 8 = 0
Остаток от деления записываем в обратном порядке. Получаем целую часть числа в 8-ой системе счисления: 0445 293 = 0445
Для перевода дробной части числа последовательно умножаем дробную часть на основание 8. В результате каждый раз записываем целую часть произведения.
0.125*8 = 1 (целая часть 1) 0*8 = 0 (целая часть 0) 0*8 = 0 (целая часть 0) 0*8 = 0 (целая часть 0) 1000
Получаем число в 8-ой системе счисления: 1000 0.125 = 0.10008
В итоге получаем число: 0445.10008 ответ: 293.125=0445.10008
Решение было получено и оформлено с сервиса: Перевод чисел онлайн
program zadagha_1;
var
a: array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite 8 chisel');
for i:=1 to 8 do read(a[i]);
sum:=0;
for i:=1 to 8 do begin
if i mod 2 <> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa elementov c nechetnim N =', sum);
end.
program zadagha_2;
var
b: array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(a);
write ('elementi > dannogo chisla: ');
for i:=1 to n do begin
if b[i]>a then write (i:4);
end;
end.
program zadacha_3;
var
a: array[1..100] of integer;
i,n,k: integer;
begin
n:=random(100);
for i:=1 to n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(k);
writeln('v massive chisly ',k, ' kratni: ');
for i:=1 to n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.