На вход программе подаются целые числа x и y,необходимо уменьшить на 100 то числ...

July 2022 1 1 Report

На вход программе подаются целые числа x и y,необходимо уменьшить на 100 то число которое является трехзначным.И увеличить в 10 раз то число которое является меньше ста

Answers & Comments

AnonimusPro

Verified answer

Program n1;
function thg(var t: real): boolean;
begin
thg:=false;
if (t>=100) and(t<1000) then thg:= true;
end;
var x,y: real;
begin
readln(x,y);
if thg(x) then x:=x-100;
if thg(y) then y:=y-100;
if x<100 then x:=x*10;
if y<100 then y:=y*10;
writeln(x,' ',y);
end.

2 votes Thanks 1

Answers & Comments

Verified answer

dar treugolnik so stranami 4sm6sm i 8sm

vvesti chisloesli ono chetnoe razdelit ego na 4esli nechetnoe trudnost na 5

napisat programmu kotoraya opredelit summu vseh cifr pyatiznachnogo chisla xvvodyat

reshite pozhalujsta slozhnost 8 klassa srochno

napisat programmu kotoraya summu vseh cifr pyatiznachnogo chisla h kotoryj vvoditsya

na vhod programme podayutsya celye chisla x i yneobhodimo umenshit na 100 to chisl

dano trehznachnoe chislo verno li chto summa ego cifer bolshe 10 slozhnost 8 klas

рекомендуемые вопросы

Helpful Links

Helpful Social