Задача 1
1) Начиная от 7 идем вниз с шагом 1 до 4
Ответ: 3
2) нет цикла - Ответ: 1
Задача 2
Начиная от 1 идем вверх с шагом 1 до n, который равен 4. Итого делаем 4 шага.
Первый шаг i=1, а =100, значит а=100-2*1=98
Второй шаг i=2, a=98, значит а=98-2*2=94
Третий шаг i=3, а=94, значит a=94-2*3=88
Четвертый шаг i=4, а=88, значит a=88-2*4=80
Ответ: 80
Где русские буквы 8
где английские 14
// Листинг программы и скриншот результата в приложениях.
const
max_v = 15;
m1 = -20;
m2 = 50;
var i,j:byte;
v:array [1..max_v] of integer;
a,b:integer;
// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
writeln(tx);
randomize();
for i:=1 to max_v do begin
v[i]:=random(m1,m2);
write(v[i]:6);
end;
writeln('');
writeln('');
end;
begin
randomArray('Начальный массив');
writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
for i:=1 to max_v do begin
//десятки числа
a:=v[i] div 10;
//единицы числа
b:=v[i] mod 10;
if (a=7) or (a=5) or (b=7) or (b=5)
then
writeln(v[i]);
end;
end.
Ответ:
program a;
var q,w:integer;
begin
write(' Cколько раз повторить?');
readln(q);
for w:=1 to q do
writeln('Привет!');
end.
Объяснение:
4.a)program l1;
vary,x:real;
BEGIN
write('Введите х: ');
readln(x);
y:=0;
if(x<0)then y:=sqr(x)-5
else if(x=0) then y:=3
else y:=x-3;
writeln('Y равен ',y)
END.
б)program l2;
vary,x:real;
BEGIN
write('Введите х: ');
readln(x); y:=0;
if(x<-1)then y:=abs(x)+2
else if(x=-1)then y:=1
else y:=x+1;
writeln('Y равен ',y)
END.
5.a)program l3;
var x,y:real;
BEGIN
writeln('Принадлежит ли точка М(x;y) к заштрихованной области ?'); write('Введите т.М(х;у):');
readln(x,y);
if((y<=1)and(y>=-3)and(x>=-2)and(x<5)) then writeln('Т.М(х;у) принадлежит заштрихованной области')
else writeln('Т.М(х;у) не принадлежит заштрихованной области')
END.
б)program l4;
var x,y:real;
BEGIN
writeln('Принадлежит ли точка М(x;y) к заштрихованной области ?'); write('Введите т.М(х;у):');
readln(x,y);
if((x>=0)and(y>=0)and(y<=(-(2/3))*x+2)) then writeln('Т.М(х;у) принадлежит заштрихованной области')
else writeln('Т.М(х;у) не принадлежит заштрихованной области')
END.
1) program l5;
var
i,x,sum:integer;
BEGIN
write('Введите двухзначное число: ');
readln(x);
x:=x+1;
sum:=0;
for i:=x to 99 do sum:=sum+x;
writeln('Сумма двухзначных чисел равно ',sum)
END.
