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.
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
Опредилить основания классификаций:а)ель,сосна,кедр,пихта/берёза,осина,липа,тополь;б)рожь,тишь,ложь,рысь/пшеница,тишина,истина,к
Alx2040 [567]
А) хвойные/лиственные деревья
б) существительные женского рода 3 / 1 склонения
в) одежда / верхняя одежда
г) дикие / домашние животные
program krug;
var r:real;
begin
write('введите радиус: ');
readln(r);
writeln('С=',2*3.14*r);
writeln('S=',3.14*r*r);
readln;
end.
кажись так
1.1) 27-18=9
1.2) 264/9=22
2) Все данные вводятся в графу С
1А - не переполнен
1Б - не переполнен
1В - переполнен
2А - не переполнен
2Б - переполнен
2В - не переполнен
3А - не переполнен
3Б - не переполнен
3В - не переполнен
4А - не переполнен
4Б - не переполнен
4В - не переполнен
Буду признателен за благодарность, всего доброго!