ИНФОРМАТИКА!СДЕЛАЙТЕ ПРОШУУ. Created by aigerim200412. informatika-ru

ИНФОРМАТИКА!СДЕЛАЙТЕ ПРОШУУ...

aigerim200412 @aigerim200412

August 2022 1 18 Report

ИНФОРМАТИКА!СДЕЛАЙТЕ ПРОШУУ

Answers & Comments

ЯковПервый //Язык Pascal

--------------------------------------------------

1 задание:

Program Test;

Var a, b: real;

Begin

Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);

Writeln();
Writeln('Сумма = ', a + b);

End.

--------------------------------------------------

2 задание:

Program Test;

Var x: integer;

Begin

Write('Введите x: ');
Readln(x);

Writeln();
Writeln('Результат возведения в 4 степень = ', x * x * x * x);

End.

--------------------------------------------------

3 задание:

Program Test;

Var a: integer;

Begin

Write('Введите a: ');
Readln(a);
Writeln();

if (a > 5) then
a := a * 2;

Writeln('a = ', a);

End.

--------------------------------------------------

4 задание:

Program Test;

Var min, max, tmp: integer;

Begin

Write('Введите 1 число: ');
Readln(max);
Write('Введите 2 число: ');
Readln(min);
Writeln();

if (min > max) then
begin
tmp := max;
max := min;
min := tmp;
end;

Writeln('Большее = ', max);
Writeln('Меньшее = ', min);

End.

1 votes Thanks 1

aigerim200412 ОГРОМНОЕ СПАСИБООО

Answers & Comments

reshite pzh srochno nadodayu 59 ballovtolko pzh mozhete napisat na listochkeesli

chto budet esli zemlya budem vrashatsya v 2 raza bystree vokrug solnca

russkij yazyk sdelajte proshu

dayu 40 ballovpomogitenam semiklashkam skazali na linejke skazat horoshie pozh

ukazhite grafiki funkcij s otricatelnym k

reshite sistemu 2hu8 i 2h u0

tri argumenta v polzu tezisavnizuesli vy lyubite svoj narod vy pojmete i drugi

sdelajte pozhalujsta angle7fbc60c8d68b93e18782378b13705ef 39462

tih pro nauryz na kazahskom 6 8 strochek

sostavte tri voprosa iz etogo predlozheniyasport degenemiz adamlardy densauly

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

Helpful Links

Helpful Social