Головна | Реєстрація | Вхід | RSS | П`ятниця, 04.26.2024, 4:15 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Тема 5пункт 4 №1program t5p4n1; var a,b,c,d,m,n: longint; begin writeln ('vvedit chislo'); readln (n); writeln ('vvedit zifry yaky treba zaminutu'); readln (a); writeln ('vvedit zifry na yaky treba zaminutu'); readln (b); m:=0; d:=1; repeat c:=n mod 10; if c=a then c:=b; m:=m+c*d; d:=d*10; n:=n div 10; until n=0; writeln (m); readln end.
|
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |