Artyom
?>

Написать программу чтоб работала в pascal запрашивает с клавиатуры два целых числа, их разность и частное (результат деления) и выводит на экран сообщение о правильности сделанных пользователем вычислений;

Информатика

Ответы

Darya Aleksei1173
Pascalabc var x,y,z: integer; t: real; begin writeln('введите первое целое число'); readln(x); writeln('введите второе целое число'); readln(y); writeln('введите разность'); readln(z); writeln('введите частное'); readln(t); i f ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x))  then writeln('вычисления выполнены правильно') else writeln('вычисления выполнены неправильно'); end.
bykovaam
Const   maxn = 100; // максимальное кол-во элементов массива var   n, i: longint;   middle, sum, sum2: real; // может быть нецелым числом   a: array[1..maxn] of real; begin   write('введите количество элементов массива: ');   readln(n);   sum : = 0; // считаем сумму всех элементов, чтобы найти среднее арифметическое   write('введите элементы массива через пробел: ');   for i : = 1 to n do begin       read(a[i]);       sum : = sum + a[i];   end;   middle : = sum / n; // вычисляем среднее арифметическое   writeln('среднее арифметическое = ', middle);   sum2 : = 0; // считаем сумму элеметов, меньших среднего арифметического   for i : = 1 to n do     if a[i] < middle then       sum2 : = sum2 + a[i];   writeln('сумма элементов, меньших среднего арифметического = ', sum2); end.
karnakova-a
Формат. формат шрифта подразумевает под собой: выбор подчеркивания; подбор ширины; определение цвета шрифта; выбор шрифта; подбор начертания; выбор размера; кернинг шрифта; смещение  шрифта; шрифтовые спецэффекты; индексацию.характеристики шрифта: гарнитура, кегль, начертание, ширина, подчеркивание, кернинг, цвет шрифта, смещение символов шрифта, параметры анимации, индексация, регистр шрифта.но если попроще: шрифтов много, отличаются они друг от друга по 3-м параметрам: гарнитура,  размер символов,  начертание.а все остальное - лишь детализация.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу чтоб работала в pascal запрашивает с клавиатуры два целых числа, их разность и частное (результат деления) и выводит на экран сообщение о правильности сделанных пользователем вычислений;
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Maly01984489
yurovolga
Anna572
ogonizoloto
tershova
Lebedeva1577
agusarevich283
uisfbu7777733
Veronika343
zsa100
gostivdom302
rayon14
makscska22879
Никитина580
azarovaelena19812