найти чему равен у и вывести его на экран если у=1*2*3*4*...*10
5-9 класс
|
Var Y:Byte;
Begin
Y:=1*2*3*4*5*6*7*8*9*10;
Writeln('Y = ',Y);
Readln;
End.
Другие вопросы из категории
700000 бит=.....сколько КБ?
Письмо состояло из 30 строк. В каждой строке вместе с пробелами по 48 символов. Письмо содержало 900 байт информации. Какова мощность алфавита ( кол- во символов), которым было написано письмо?
В корзине 64 шара. Сколько информации несет сообщение о том, что достали черный шар?
Алфавит состоит из 64 букв, какое кол-во информации несет в себе одна буква такого алфавита?
полученные результаты, а также максимальное значение времени в дороге.
Читайте также
Нулям.основы выводит массив на экран
Создать целочисленный массив из 15 чисел. Заполнить с помощью генератора случайных чисел с элементами от -15 до 30. И вывести его на экран. Определить самый большой элемент массива и его индекс.
A (i):=random (x) -15
от -1 до х
от -15 до 30.
Пример:
Вход 1212
На выходе 2
Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(