Pascal в зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло", "жарко", "холодно", " холодно".
120
158
Ответы на вопрос:
Var a,b: string; begin write('введите время года ==> '); readln(a); if (a='зима') then write ('зима ==> холодно'); if (a='весна') then write ('весна ==> тепло'); if (a='лето') then write ('лето ==> жарко'); if (a='осень') then write ('осень ==> холодно'); end.
Var a,i,x1,x2,s: integer; begin s: =0; x1: =0; a: =1; while (a< > 0) do begin writeln('vvodite elementi stroki , po okonchanii vvedi 0 ') ; readln(a); x2: =x1; x1: =a; if (x2=x1) then s: =1; end; if (s=1) then writeln('sushestvyet') else writeln('ne sushestvyet'); end.
Популярно: Информатика
-
Karina1122215.10.2020 07:42
-
Oxico12725.04.2022 09:16
-
betextinaanast109.10.2020 06:09
-
ulyalyas14.03.2022 01:11
-
lizamalaya201220.09.2021 23:03
-
кай2407.08.2022 22:28
-
о2307200526.04.2020 17:27
-
annakostomarova15.04.2021 04:49
-
iiiin16.10.2022 03:01
-
Cerd04.09.2021 17:08