Вычислите значение выражения

@LerikaStar · Регистрация: 13.10.2009

Author24 — интернет-сервис помощи студентам

Вычислите значение выражения (а в квадрате +b)*a/b
a b: целые числа

@Puporev · 13.10.2009, 16:43

Pascal

var a,b:integer;
     y:real;
.........................
y:=(a*a+b)*a/b;

@Давид · 13.10.2009, 16:51

Вот...

Pascal

Uses crt;
 Var a,b:integer;
     y:real;
begin
clrscr;
 write ('A=');
 Readln (a);
 Write ('b=');
 Readln (b);
Y:=(sqr(a)+b)*a/b;
Writeln ('Otvet Y = ',y:4:2);
Readln
end.

Добавлено через 25 секунд
Ехх...не успел(

@LerikaStar · 13.10.2009, 16:57 **[ТС]**

Спасибо)
Вот еще одно...
Дано целое число.Модуль этого числа увеличить в 5 раз.

@S2dent · 13.10.2009, 17:03

Pascal

var a:integer;
begin
  writeln('Введите число ');
  readln(a);
  writeln(abs(a)*5);
  readln;
end.

@LerikaStar 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 4
		1
	Вычислите значение выражения 13.10.2009, 16:34. Показов 824. Ответов 4 Метки нет (Все метки) Вычислите значение выражения (а в квадрате +b)*a/b a b: целые числа 0

@LerikaStar 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 4
	13.10.2009, 16:57 [ТС]	4
	Спасибо) Вот еще одно... Дано целое число.Модуль этого числа увеличить в 5 раз. 0

	13.10.2009, 17:03

Опции темы