Program P7;
var S:String; n,k1,k2,k3,i:byte;
Begin
writeln('Введите строку:');
readln (S);
n:=length (S);
k1:=0; k2:=0; k3:=0;
For i:=1 to n do
case S[I] of
' ' : k1:=k1+1;
',',';','.','!',':','?' : k2:=k2+1;
'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
end;
Writeln ('kolicestvo clov = ',k1+1);
Writeln ('kolicestvo znakov prepinania = ',k2);
writeln('kolicestvo soglasnih = ', k3);
readkey
end.
Пример:
Введите строку:
na ulite sneg.
kolicestvo clov = 3
kolicestvo znakov prepinania = 1
kolicestvo soglasnih = 6
Расположение как написано: желтый квадрат, зеленый ромб, красный треугольник, синий круг
<span>Потому что слово "динамичный" от слова "динамика"-изменение, подстраивание. После изменение формулы или данного связанного с формулой моментально (ну или не моментально-зависит от производительности ПК) изменяется часть таблицы, подвластная этой формуле. </span>
Буква "ш" + нарисованная бутылка "кола"
или слово
шоколад
а под ним цифры 2 и 7 зачеркнутые
program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
<em>Программа написана на языке PascalABC.NET</em>