Найти сумму цифр четырехзначного числа больше квадрата его последней цифры

@jurbahh · Регистрация: 17.03.2013

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

Помогите написать код
Даны вещественные x, y, z. Вычислить a, b
a=2sin(y+z)/e^x+y
b=z*abs(1/sqrt(x^2)+(y^2))

а также помогите написать программу, которая печатает значение логического выражения (TRUE или FALSE):
Сумма цифр четырехзначного числа больше квадрата его последней цифры;
Сумма первой и второй цифр трехзначного числа равна третьей цифре.

@Joy · 27.10.2014, 18:21

п.1

Pascal

var
  a,b,x,y,z:real;
begin
  write('x,y,z=');
  readln(x,y,z);
  a:=2*sin(y+z)/exp(x)+y;
  if (x<>0) and (y<>0) then begin
  b:=z*abs(1/sqrt(x*x+y*y));  writeln('a=',a:0:4,':b=',b:0:4); end
  else writeln('a=',a:0:4,':b= Не определено');
   readln;
end.

Добавлено через 17 минут
п.2

Pascal

var
  a:integer;
begin
  repeat
  readln(a);
  until (a>999) and (a<10000);
  if a mod 10+a div 10 mod 10+a div 100 mod 10+a div 1000>sqr(a mod 10)
    then writeln('true') else writeln('false');
  readln;
 end.

Добавлено через 6 минут
п.3

Pascal

var
  a:integer;
begin
  repeat
  readln(a);
  until (a>99) and (a<100);
  if a div 10 mod 10+a div 100 mod 10=a mod 10
    then writeln('true') else writeln('false');
  readln;
 end.

@jurbahh 0 / 0 / 0 Регистрация: 17.03.2013 Сообщений: 9
		1
	Найти сумму цифр четырехзначного числа больше квадрата его последней цифры 27.10.2014, 16:19. Показов 2822. Ответов 1 Метки нет (Все метки) Помогите написать код Даны вещественные x, y, z. Вычислить a, b a=2sin(y+z)/e^x+y b=z*abs(1/sqrt(x^2)+(y^2)) а также помогите написать программу, которая печатает значение логического выражения (TRUE или FALSE): Сумма цифр четырехзначного числа больше квадрата его последней цифры; Сумма первой и второй цифр трехзначного числа равна третьей цифре. 0

	27.10.2014, 18:21

Найти сумму цифр четырехзначного числа больше квадрата его последней цифры

Решение