Вvar g, h: integer; x, y: real; x0, y0, xm, ym, mx, my: integer; begin g: =detect; initgraph(g, h, ''); begin line(0, round(getmaxy/2), getmaxx, round (getmaxy/2)); line (round (getmaxx/2), 0, round(getmaxx/2), getmaxy); end; for xm: =20 to 620 do begin x: =(xm-x0)/mx; y: =x*x; ym: =round(y0-y*my); putpixel(xm, ym, 15); end; readln; end. подскажите , что означает строка for xm: =20 to 620 do? что и зачем она нужна?

это цикл. код после do и до end; выполняется 620 - 20 = 600 раз, так как счёт идёт от 20 и заканчивается 620. но тут ошибка. после begin и до end; нет увеличения счётчика xm(то есть эта переменная будет всегда равна 20), нужно добавить строху xm: =xm+1 до end;

 

// pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   var s: =readlnstring('введите строку: ');   var p: =pos('.',s);   if p> 0 then s: =copy(s,1,p-1);   var a: =s.towords;   if a.count=3 then begin       writeln(a[0],' ',a[1][1],'.',a[2][1],'.')       end   else       writeln('неверно задана строка') end. тестовое решение: введите строку:           иванов          петр    сергеевич.! это лишнее иванов п.с.

using System;

namespace restless

{

   class Program

   {

       static void Main(string[] args)

       {

           Random rnd = new Random();

           int num = rnd.Next(100, 999);

           Console.WriteLine($"Наше сгенерированное число: {num}");

           num = Math.Abs(num);

           if (num % 10 + (num / 10) % 10 < 10)

               Console.WriteLine("Сумма десятков и единиц является однозначным числом");

           else

               Console.WriteLine("Сумма десятков и единиц не является однозначным числом");

           Console.ReadKey();

       }

   }

}