Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
5-9 класс
|
program xxx;
var a, b, s : real;
r, p, d : real;
begin
write ('введите певрое число- ');
readln (a);
write ('введите второе число- ');
readln (b);
s:= a+ b;
r := a - b;
p := a* b;
d := a/b;
writeln ('сумма =', s);
writeln ('разность =', r);
writeln ('произведение =', p);
writeln ('частное = ', d);
readln
end.
Другие вопросы из категории
var
x: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Writeln(x);
end.
Что в этой программе не так? Я хочу извлечь корень из х, а программа пишет "ОШИБОЧНЫЙ ИДЕНТИФИКАТОР".
Program tutor;
var
X, Z: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Z:=sqrt(X);
Writeln(x,z);
end.
И через "sqrt"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.
Тысячи путей ведут к заблуждению, к истине - только один.
1) 92 бита 2) 220 бит 3) 456 бит 4) 512 бит
2) Сколько бит информации содержит сообщение объемом 8 Мб?
3) Информационное сообщение объемом 16 кбайт передается со скоростью 1024 бит/сек. За сколько секунд будет передано данное сообщение?
4) Объем текста имеет 30 килобайтов, на каждой странице текста 30 строк по 64 символа на каждой. Один символ имеет объем 8 бит. Чему равно количество страниц в тексте?
5) Модем передает данные со скоростью 64000 бит/с. Передача текстового файла заняла 1,5 мин. Определите, сколько страниц содержал переданный текст, если известно что он был представлен в 16 битной кодировке Unicode, а на одной странице 400 символов
Ответы с решением, пожалуйста
Поднять перо
сместить в точку (1,1)
опустить перо
сместиться в точку (1,2)
сместиться в точку (5,2)
сместиться в точку (5,1)
поднять перо
сместиться в точку (4,2)
опустить перо
сместиться в точку (4,5)
сместиться в точку (3,5)
сместиться в точку (2,4)
сместиться в точку (2,2)
Читайте также
Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
Ввести 2 числа ,найти их сумму и произведение ,если произведение окажется положительным ,то выдать его на экран,а иначе выдать на экран сумму.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.