Выберите допустимые константы: выберите один или несколько ответов: $ffh0 '$' 01 'аb' 'ba' «l» $ 008е-12.3 '' 2е+3 'вася' 'ф' 2*е1 259

сумма=18

семерки нету

или тебе программу написать?

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

может кто перепишет на паскаль

вот на c:

#include < stdio.h> int main(void){  int km, day;   day = 1;   km = 10;   while (km < = 200)  {  if (km == 20)  {    printf("20km in %d day\n", day);     }     km += km / 10;   day++;   }  printf("< 200km in %d day", day);   printf("\n");   system("pause");   return 0; }

var i: integer;

s: string;

begin

  s: ="abcdefghijklmnopqrstuvwxyz";

  for i: = 1 to length(s) do

      writeln(s[i],' = ', ord(s[i]));

end.