Ответы на вопрос:
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin var s1: =readlnstring('s1=').replace(',',''); var s2: =readlnstring('s2='); var s: =s1.interleave(s2).joinintostring(''); writeln(s) end. пример s1= d,e,f s2= 567 d5e6f7
*****************c case***************** var a: integer; begin write('введите число от 5 до 9: '); readln(a); case a of 5: writeln('вы ввели число "пять"'); 6: writeln('вы ввели число "шесть"'); 7: writeln('вы ввели число "семь"'); 8: writeln('вы ввели число "восемь"'); 9: writeln('вы ввели число "девять"') end; readln end. *****************с if***************** var a: integer; begin write('введите число от 5 до 9: '); readln(a); if a=5 then writeln('вы ввели число "пять"'); if a=6 then writeln('вы ввели число "шесть"'); if a=7 then writeln('вы ввели число "семь"'); if a=8 then writeln('вы ввели число "восемь"'); if a=9 then writeln('вы ввели число "девять"'); readln end.
Популярно: Информатика
-
maksimpolyakovox771105.12.2020 14:56
-
picpic130.06.2021 03:35
-
msnyamkina22.07.2021 14:58
-
Siiii26.07.2020 13:22
-
spartanash29.04.2022 21:29
-
Annna98704.06.2023 04:41
-
ElliDiHastua13.01.2023 16:48
-
Fantik14rus26.02.2023 21:20
-
bazhin789bazowzpsb25.02.2023 17:18
-
adamoon4403.01.2023 21:43