Так это отрывок из его произведения "Левиафан", переведенное из кодировки Кириллица Windows в KOI8-R.
ИЗИ
Const kmax = 20;
var T:array [1..kmax] of integer;
i,k,zero,sum,count:integer;
begin
count:=0;
sum:=0;
repeat
write ('K(K<20) = ');
readln (k);
until k in [1..kmax];
randomize;
for i:=1 to k do
begin
T[i]:=random(14)-5;
write (T[i]:3);
end;
writeln;
zero:=1;
while (zero<=k) and (T[zero]<>0) do inc(zero);
count:=k-zero;
if zero<>kmax then
for i:=zero+1 to k do sum:=sum+T[i];
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',count);
end.
Var
a,b,c:real;
begin
Write('Введите через пробел длины трех сторон: ');
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln('Можно составить треугольник')
else
Writeln('Нельзя составить треугольник')
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
№1
#include <iostream>
using namespace std;
int main(){
int a=1, s=0;
while (a!=8) {
++a;
s+=a;
}
cout<<s;
}
№2
#include <iostream>
using namespace std;
int main(){
string a;
char b;
int c=0;
cout << "Ваше число - ";
cin >> a;
cout << "Цифра для поиска - ";
cin >> b;
for (int i=0; i<a.length(); ++i)
if(a[i]==b) ++c;
cout<<"Данная цифра в числе встречается "<< c <<" раз(а)";
}
№3
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double x, y;
cin>>x;
for(int a=-1; a<=2; ++a){
if(a<=1) y=log(abs(a*x+1));
else y=a*a+cos(a*x);
cout<<"a="<<a<<" y="<<y<<endl;
}
}
Периферийные устройства-с их помощью можно вводить или выводить информацию из компьютера.
Основные устройства-компоненты компьютера(процессор).
