pascalМеньшее из двух заданных неравных чисел увеличить вдвое, а большее оставит...

July 2021 2 25 Report

pascal

Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.

uropb123 Program sum;
uses crt;
var
a,b:real;
begin
writeln('Введите число А:');
read(a);
writeln('Введите число B:');
read(b);
if (a>b) then a:=a*2 else b:=b*2;

writeln('Числа после измения а=',a,' b=',b);

end.

2 votes Thanks 4

Ukoz1940 Var a,b,c:integer;
Begin
readln(a,b);
If a>b then b:=b*2
else
If a<b then a:=a*2;
writeln(a,' ',b)
end.

1 votes Thanks 2

Answers & Comments

srochnosostavit programmukolichestvo chisel zadaetsya polzovatelemchtoby najt

blok shemaizvesten rost peti i vasi kto vyshe

pozhalujsta sostavit prevrasheniya caco3gtcaogtcacl2gtca3po42 hotya b

pomogite kto chem smozhet na2ogtnano3 naohna2so4 vsem zaranee spasibo

sostavit uravneniya reakcii 1 sio2 gt si 2 si gt sio2 3 si gt

rebyat pomogite pozhalujsta sopostavit pisma onegina i tatyany iz evgeniya oneg

256 mbajt v bit v stepeni dvojki

vypolnit prevrashenie 1 kaloh4 gtaloh3 2 aloh3 gtal2o3

dano n chisel soschitat kolichestvo chisel kotorye menshe 15 najti summu kratny

vypolnit prevrasheniya 1 iz kaloh4 gtpoluchit aloh3 2 iz aloh3

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

Helpful Links

Helpful Social