Какую из последовательностей символов можно считать командой присваивания:
1.A+c=c*d
2.B;=20
3.M:=C+20
4.B+5:=B
131
210
Ответы на вопрос:
1) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program program1; var s,subs: string; c: char; isonenumber: boolean; p: byte; n,err: integer; begin writeln('‚введите фразу'); readln(s); c: =s[1]; isonenumber: =false; p: =pos(' ',s); while p< > 0 do begin if p=1 then begin s: =copy(s,2,length(s)); p: =pos(' ',s); continue; end; subs: =copy(s,1,p-1); s: =copy(s,p+1,length(s)); p: =pos(' ',s); val(subs,n,err); if err< > 0 then continue; if (n=0) or (n> 9) then continue; isonenumber: =true; break; end; if isonenumber then writeln('‚ есть числа, сосотоящие из одной цифры') else writeln('‚нет чисел, состоящих из одной цифры'); end.
Популярно: Информатика
-
letsplei121206.04.2022 15:46
-
qwer54321asdfrewq13.11.2020 15:55
-
Keklo1225.07.2022 21:48
-
losangelina2319.03.2021 21:50
-
polinaguskova10.08.2022 21:13
-
sheremetev0223.03.2021 05:36
-
qwertyyuill19.02.2022 06:20
-
Yangelskiy05.03.2022 16:49
-
adubnovitskaj13.04.2021 04:24
-
SDimassYT07.06.2022 00:09