ПРИВАТЕ СУБ ЦОММАНДБУТТОН1_ЦЛИЦК () С$ = ТЕХТБОХ1.ТЕХТ ИФ ЛЕН (С$) = 4 ТХЕН А = ВАЛ (МИД$(С$, 2, 1)) Б = ВАЛ (МИД$(С$, 3, 1)) ТЕХТБОХ2.ТЕХТ = СТР$(А + Б) ЕНД ИФ ЕНД СУБ
Вопрос Помогите в паскаль!
- Автор темы dmitriy20013
- Дата начала
{program p2; var x: integer; begin x:= 1000 + random (9000); writeln (x); x:= ((x mod 1000) div 10) mod 10 + (x mod 1000) div 100; writeln (x); end.} {program p1; begin writeln (120+random(21)*3); end.}
решение на Turbo Pascal 7.0 (Pascal ABC) {program p2; var x: integer; begin x:= 1000 + random (9000); writeln (x); x:= ((x mod 1000) div 10) mod 10 + (x mod 1000) div 100; writeln (x); end.} {program p1; begin writeln (120+random(21)*3); end.}
[THIDE="0"]var a,b,c,d:integer;
i:integer;
label loop;
begin
loop:
randomize;
write('input = ');
readln(i);
if (i>=1000) and (i<=9999) then
begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
writeln('number: ',i,' |1dig: ',a,'|',' |2dig: ',b,'|',' |3dig: ',c,'|',' |4dig: ',d,'|');
writeln('sum 2+3dig: ',b+c);
end
else
begin
writeln('Enter 4digit number');
goto loop;
end
end.[/THIDE]
i:integer;
label loop;
begin
loop:
randomize;
write('input = ');
readln(i);
if (i>=1000) and (i<=9999) then
begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
writeln('number: ',i,' |1dig: ',a,'|',' |2dig: ',b,'|',' |3dig: ',c,'|',' |4dig: ',d,'|');
writeln('sum 2+3dig: ',b+c);
end
else
begin
writeln('Enter 4digit number');
goto loop;
end
end.[/THIDE]