М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
iljarybackov20
iljarybackov20
15.09.2021 11:45 •  Информатика

Ребята Задание прикрепил скриншотом..

👇
Открыть все ответы
Ответ:
Алёнка290613
Алёнка290613
15.09.2021
C#:
{
double x = Convert.ToDouble(Console.ReadLine());
double y = Convert.ToDouble(Console.ReadLine());

if ( x > y)
{
x = x / 0,9;
}
else if (y > x)
{
y = y / 0,9;
}
else Console.WriteLine("Числа одинаковые \n");
 Console.WriteLine("x = {0}, y = {1}" , x, y);
}

надеюсь, что устроит
более-менее понятно, можно разобраться

на паскале:
begin
var x, y: double;
readln(x);
readln(y);

if x > y then
x := x div 0,9;
else if y > x then
y := y div 0,9;
else writeln("числа одинаковые");
writeln("x = ", x, "y = ", y);

на паскале мб чутка неверно написано
4,6(56 оценок)
Ответ:
Симская
Симская
15.09.2021
1)var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.
4,4(42 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ