var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
С конца считаем
_ - Л, значит последняя Л
*_- А
_ - Л
_** - Д
_ - Л
*_** - Ж
_** - Д
*_ - А
АДЖЛДЛАЛ
Program znanija;
var count, key, pass:integer;
begin
pass:=1234;
while count <= 3 do begin
Inc(count);
readln(key);
if key = pass then
count:=5
else
writeln('Попробуйте снова');
end;
end.
В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];
В чём дело? Идём в паскаль, набираем программу, запускаем и смотрим на результат. Программа должна выдавать значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5]; К примеру у меня 2673