Какими интернет-технологиями представлен туристский рынок ? a ) Web-витрины , имеющие стандартный каталог туристских услуг b ) Интернет-магазин c ) торговые интернет-системы ( ТИС ) d ) Все , вышеперечисленное
1.var a:integer;{объявление переменных} b:real; begin{начало тела программы} write('введите два числа => ');{вывод сообщения пользователю} readln(a,b);{ввод данных пользователем} if (a>5) then {сравнение первого введённого числа с 5} b:=b/2;{если а>5 b приравниваем к b делённое на 2} writeln(b);{выводим b} end.{конец тела программы} 2.var a,b,c,d:integer;{объявление переменных} begin{начало тела программы} write('введите три числа (через пробел) => ');{вывод информации пользователю} read(a,b,c);{ввод инф. пользователем} if (a>=0) then d:=d+1;{если а положительное число счётчик +1} if (b>=0) then d:=d+1;{тоже самое что с верху} if (c>=0) then d:=d+1;{тоже самое что с верху} writeln('количество положительных чисел ',d);{вывод информации} end.{конец тела программы}
'MS-DOS QBasic 1.0 DIM a(1 TO 20) AS SINGLE, b(1 TO 20) AS SINGLE CLS RANDOMIZE TIMER PRINT "Massiv a" j = 0 FOR i = 1 TO 20 a(i) = 10 * RND - 5 PRINT a(i); IF a(i) > 0 THEN j = j + 1 b(j) = a(i) END IF NEXT i FOR i = 1 TO 20 IF a(i) <= 0 THEN j = j + 1 b(j) = a(i) END IF NEXT i PRINT PRINT "Massiv b" FOR i = 1 TO j PRINT b(i); NEXT i PRINT
b:real;
begin{начало тела программы}
write('введите два числа => ');{вывод сообщения пользователю}
readln(a,b);{ввод данных пользователем}
if (a>5) then {сравнение первого введённого числа с 5}
b:=b/2;{если а>5 b приравниваем к b делённое на 2}
writeln(b);{выводим b}
end.{конец тела программы}
2.var a,b,c,d:integer;{объявление переменных}
begin{начало тела программы}
write('введите три числа (через пробел) => ');{вывод информации пользователю}
read(a,b,c);{ввод инф. пользователем}
if (a>=0) then d:=d+1;{если а положительное число счётчик +1}
if (b>=0) then d:=d+1;{тоже самое что с верху}
if (c>=0) then d:=d+1;{тоже самое что с верху}
writeln('количество положительных чисел ',d);{вывод информации}
end.{конец тела программы}