int main() { setlocale(LC_ALL, "RUSSIAN"); float a; int b; bool flag=false; char str[20]; printf("Введите число >> "); scanf("%f", &a); b = a; float c = a - b; sprintf(str, "%5.3f", c); printf("Дробная часть: %s", str); for (int i = 2; i < 5; i++) { if (str[i] == '0') flag = true; } if (flag == true) printf("\nПервые три цифры дробной части содержат цифру 0"); else printf("\nПервые три цифры дробной части не содержат цифру 0"); printf("\n "); system("pause"); }
procedure p(x:integer; var st:string); type name = array[0..9] of String[50]; const s1 : name = (' ноль ',' один ',' два ',' три ',' четыре ',' пять ',' шесть ',' семь ',' восемь ',' девять '); s2: name = (' ',' десять ',' двадцать ',' тридцать ',' сорок ',' пятьдесят ',' шестьдесят ',' семьдесят ',' восемьдесят ',' девяносто '); s3: name = (' ',' сто ',' двести ',' триста ',' четыреста ',' пятьсот ',' шестьсот ',' семьсот ',' восемьсот ',' девятьсот '); s4 : name = (' ',' одиннадцать ',' двенадцать ',' тринадцать ',' четырнадцать ',' пятнадцать ',' шестнадцать ',' семнадцать ',' восемнадцать ',' девятнадцать '); var s,d,e : Integer; begin s:= x div 100; x:=x mod 100; st:=s3[s]; d:= x div 10; e:=x mod 10; if (d=1) and (e<>0) then st:=st+s4[e] else st:=st+s2[d]+s1[e]; end; var x:integer; st:string; Begin Write('Введите число [0..999] :'); Readln(x); p(x,st); writeln(st); End.
Пример: Введите число [0..999] : 714 семьсот четырнадцать
var
a,b, x : real;
begin
writeln ('ax=b');
write ('a=');
readln (a);
write ('b=');
readln (b);
x := b/a;
writeln ('x=',x:3:3);
end.