Нужно написать 2 программы желательно в pascal - вопрос №55366222 от Ala012447 16.04.2023 14:27

Question

Информатика: Нужно написать 2 программы желательно в pascal abc программа 2. пользователь вводит две целые переменные a, b. написать программу для выполнения следующих операций: 1 вычислить результат целочисленного деления a на b; 2 вычислить результат деления a на b; 3 вычислить результат деления a на b, вывести его дробную часть; 4 вычислить результат деления a на b, вывести его целую часть; 5 вычислить результат деления a на b, округлить его. программа 3. предложите пользователю ввести трехзначное число,

Ala012447 · Answer

1 задание.

uses crt;
var
a, b : real;
begin
readln (a, b);
writeln (a/b);
writeln (frac(a/b));
writeln (int(a/b));
writeln (round(a/b));
readkey;
end.

2 задание.

uses crt;
var
a: integer;
st, st1, st2, st3: string;
begin
readln (a);
str (a, st);
st1:=st[3];
st2:= st[2];
st3:= st[1];
st:= st1+st2+st3;
writeln (st);
readkey;
end.