Const b:array[1..12] of string=('A','a','E','e','I','i','O','o','U','u','Y','y'); var a:string; i,j,k:integer; begin readln(a); for i:=1 to length(a) do for j:=1 to 12 do if a[i]=b[j] then k+=1; writeln(k/length(a):3:2); end.
#include <iostream> using namespace std; int main() { setlocale(0,""); int a; cout<<"введите значение погоды"<<endl; cout<<"1-тепло"<<endl; cout<<"2-жарко"<<endl; cout<<"3-холодно"<<endl; cout<<"4-колотун"<<endl; cin>>a; switch (a) { case 1: cout<<"вы можете одеть джинсы и футболку"<<endl; break; case 2: cout<<"вы можете одеть шорты и майку "<<endl; break; case 3: cout<<"вы можете одеть штаны и толстовку "<<endl; break; case 4: cout<<"вы можете одеть куртку и свитер с подштанниками и ватными штанми "<<endl; break; } return 0; }
10 CLS 20 REM Определяет количество положительных и отрицательных элементов массива 30 INPUT "Введите количество элементов в массиве N="; N 40 DIM A(N) 50 REM Ввод элементов массива 60 FOR I = 1 TO N 70 PRINT "Номер"; I; 80 INPUT "Значение элемента массива ="; A(I) 90 NEXT I 110 REM Нахождение количества положительных и отрицательных элементов массива 120 K = 0: S = 0 130 FOR I = 1 TO N 140 IF A(I) > 0 THEN K = K + 1 150 IF A(I) < 0 THEN S = S + 1 160 NEXT I 170 REM Вывод результатов 180 PRINT "Количество положительных элементов ="; K 190 PRINT "Количество отрицательных элементов ="; S 200 END
В таком виде программа была выполнена в среде LB Booster - бесплатной версии со входным языком Liberty BASIC. Сама же Liberty BASIC является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.
var a:string;
i,j,k:integer;
begin
readln(a);
for i:=1 to length(a) do
for j:=1 to 12 do
if a[i]=b[j] then k+=1;
writeln(k/length(a):3:2);
end.