Const vt_max=10;
var
i:byte;
sum:integer;
vt:array[1..vt_max]of integer;
begin
sum:=0;
writeln('Начальный массив случайных чисел');
for i:=1 to vt_max do begin
vt[i]:=random(0,12);
write(vt[i]:6);
if (vt[i]<=3) then
sum:=sum+vt[i];
end;
writeln('');
writeln('Сумма элементов не больше 3 равна ', sum);
end.
Var
a:array of integer;
i,b,c:integer;
BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.
//PascalABC.Net 3.2
{2}
function f(x:real):real;
begin
if x>0 then result:=x/3 else result:=x*sqr(x);
end;
begin
write (f(readreal('x =')));
end.
{3}
begin
var cat:=readinteger('Введите начальное кол-во:');
var count:=0;
if cat<2 then write ('Никогда') else
if cat>100 then write ('Уже не хватает') else begin
repeat
count+=1;
cat+=cat div 2;
until cat>100;
print ('Через', count, 'недели');
end;
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
Range(1, n).Select(i -> 1 + 1 / Sqr(i)).Product.Println
end.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
using std::fixed;
#include <cstring>
using std::strcpy;
#include <iomanip>
using std::setprecision;
int main()
{
char s[100], temp[100];
int counter = 0, counter1 = 0;
cout << "Enter the string: ";
cin.getline(s, 100);
strcpy(temp, s);
//Определяем общее количество слов
//и количество слов с буквай d
char *ptr = strtok(temp, " ");
while(ptr)
{
for(int i = 0; *(ptr + i) != NULL; i++)
{
if(*(ptr + i) == 'd')
{
counter1++;
break;
}
}
counter++;
ptr = strtok(NULL, " ");
}
cout << setprecision(2) << fixed << (counter1 * 100 / double(counter)) << '%' << endl;
return 0;
}