#include <iostream>
using namespace std;
int main()
{
int a,b,c,k;
cin>>a>>b>>c;
k=0;
for(int i=a;i<=b;i++){
if(i % c==0){k=k+1; }
}
cout<<k<<endl;
}
var
a,x:integer;
i,s:integer;
begin
write('Введите число ');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if (s mod 2 <>0 ) then
writeln('Верно')
else writeln('Неверно');
end.
Подчеркни "по обычной почте" , "по электронной почте" и "позвонить по телефону".
VB.
Dim i As Integer
Dim summ As Integer
Dim simv As String
simv = "бвгджзклмнпрстфхцчшщ"
Dim n As String
n=InputBox ("Введите строку")
For i = 1 To Len(n)
If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")</span>