#include<iostream>
using namespace std;
1)int main() {
for (int i = 102; i <200; i+=3)
cout<<i<<' ';
return 0;
}
2) #include <string>
int main(){
cout <<"Введите название романа и фамилию его автра";
string s;
getline(cin,s);
return 0;
}
3)int main(){
double a=0.0;
for (double i = 3.0; i < 12.0: i+=1.0)
ans += (i-1)/i;
cout<<ans;
return 0;
первые две строчки без номера копируешь для каждого кода
если есть ошибки компиляции - сорян, пишу с телефона. если что пиши в сообщения, отвечу
//PascalABC.NET 3.2 сборка 1318
Uses
GraphABC;
Var
h:integer;
begin
h:=40;
line(window.Width-300,window.Height,window.Width-300,0);
floodfill(window.Width-20,20,clGray);
rectangle(window.Width-200,100,window.Width-100,300);
floodfill(window.Width-150,140,clGold);
while h<>window.Height-40 do
begin
circle(window.Width div 2,h-40,10);
floodfill(window.Width div 2,h-40,clGreen);
circle(window.Width div 2,h,30);
floodfill(window.Width div 2,h,clRed);
rectangle(0,0,window.Width div 2+40,window.Height);
floodfill(window.Width div 2+40,window.Height,clWhite);
inc(h);
end;
circle(window.Width div 2,h-40,10);
floodfill(window.Width div 2,h-40,clGreen);
circle(window.Width div 2,h,30);
floodfill(window.Width div 2,h,clRed);
end.
Uses crt;
var n,mult,i,ans:integer;
begin
read(n);
mult:=1;
for i:=2 to n do
mult:=mult*i;
while mult mod 10=0 do begin
inc(ans);
mult:=mult div 10;
end;
writeln(ans);
<span>end.</span>
Десятичная система - 185.
Двоичная система - 10111001.
Шестнадцатеричная система - b9.
Соответственно для 8-чной системы основанием будет являться число 8, для 16-чной системы - 16 соответственно.
Отметь как лучший, пожалуйста, если все понятно)
Program programma;
var a,b,c: integer;
begin
writeln ('Введите два числа');
read (a,b);
if a>b then writeln ('Были введены числа ',a,' и ',b,'. Наименьшее число ',b,'. Удвоенное наименьшее число ',2*b);
if b>a then writeln ('Были введены числа ',a,' и ',b,'. Наименьшее число ',a,'. Удвоенное наименьшее число ',2*a);
end.