1
вводим переменные x и y.
переменная k -количество равно нулю и i равно единице.
repeat
k: =k+1;
i: =i+2;
until i> =(x+y)
2
program specialhappytickets;
var
i, j, k, l, m, n, s: integer;
begin
s : = 0;
for i : = 0 to 9 do
for j : = 0 to 9 do
for k : = 0 to 9 do
for l : = 0 to 9 do
for m : = 0 to 9 do
for n : = 0 to 9 do
if (i + j + k) = (l + m + n) then
if i + j + k = 13 then s : = s + 1;
writeln(s)
end.
program specialhappytickets;
var
i, j, k, l, m, n, s: integer;
begin
s : = 0;
for i : = 0 to 9 do
for j : = 0 to 9 do
for k : = 0 to 9 do
for l : = 0 to 9 do
for m : = 0 to 9 do
for n : = 0 to 9 do
if (i + j + k) = (l + m + n) then
if i + j + k = 13 then s : = s + 1;
writeln(s)
end.
результат выполнения программы:
5625
3
var a,i: integer; b: boolean;
begin
a: =1;
repeat
b: =true;
for i: =2 to 6 do
b: =b and (a mod i = (i-1));
if not b then a: =a+1;
until b;
writeln('a = ',a);
end.
результат:
a = 59
4
program summa;
var a,x: integer;
i,s: integer;
begin
writeln('введите целое число');
readln( a );
x: =a;
s: =0;
while ( x< > 0 ) do begin s : = s + (x mod 10);
x : = x div 10;
end;
writeln( 'сумма цифр числа ',a,' = ', s );
end.
5
1. количество нулей в конце числа равно количеству десяток в этом числе. поскольку число 10 состоит из двух простых множителей: 2 и 5, то в конце числа будет столько же нулей, сколько пятерок в числе (т. к. двоек в 100! намного больше).
2. найдем число пятерок в 100! среди чисел от 1 до 100:
1) 5^3 - нет;
2) 5^2 - 25; 50; 75 и 100 - 4 числа;
3) кратных 5: 100/5 = 20 чисел.
6
const n=8;
var a: array[1..n] of integer;
i,z: integer;
begin
z: =1;
for i: =1 to n do
begin
a[i]: =z*(2*i-1);
write(a[i],' ');
z: =-z;
end;
end.
7
var i,n: integer;
begin
write ('количество раз');
readln(n);
for i: =1 to n do
write(0);
end.
Популярные вопросы