fkn+antitotal

Задача 1 Урок 11

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var a: integer;
begin
  a := 0; // любое значение, чтобы цикл мог начаться
  while (a <= 15) do // max число
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    writeln(a + 7);
  end;
  writeln('chislo > 15');
  readln();
end. 

Задача 5

Дано некоторое число длиной от 1 до 5 цифр - вывести его цифры в обратном порядке.
Например:

3567=
7
6
5
3

Подсказка: используйте цикл while и операцию получения остатка.

<?php
echo $n = rand(0,99999) , "=<br>";
while ($n > 0){
    echo $n % 10 , "<br>";
    $n = intdiv($n , 10);
}    
?>

Задача 4

Вывести на экран n-ное число Фибоначчи. Пример последовательности:

0 
1
1 
2 
3
5
8 
13
21...и т.д.

<?php
$n = 15;
$a = 0;
$b = 1;
for ($counter = 0; $counter < $n; $counter++) {
    echo "$a<br>";
    $c = $b + $a;
    $a = $b;
    $b = $c;
}
?>

Задача 20 Урок 15:

Задача про банкомат:

Пользователь вводит целое число - сумму в некоторой валюте, требуется выдать эту сумму купюрами наибольшего достоинства.
Напишите программу, которая в качестве результата скажет как именно надо разменять указанную сумму купюрами наибольшего достоинства (укажет количество для купюры каждого типа)

Если в вашем случае ошибка возникается в JSX разметке вида:

return (
    <TextInput
    label={label}
    value={value} // код посвечивается как недостижимый!
    formatInputValue={formatInputValue}
    onChange={onChange}
  />  
);

-то, возможно, причина просто в том, что у расширение файла .ts а не .tsx и поэтому он анализируется под другим правилам

Решение для JSX

Исправить расширение файла на .tsx

Задача 3

Вывести на экран N случайных чисел (каждое с новой строки). Для каждого числа, начиная со второго, рядом выводить - больше ли оно предыдущего или меньше. например:

Задача 2 урок 21

Есть исходный код:

var s:string;  i, n: Integer;
  a:  array[1..8] of char;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 1;
 while(n<10) do      // 1-8
   begin
   for i:=1 to Length(s) do
       if (s[i]>='0')and(s[i]<='9') then
         begin
           a[n]:=s[i]; 
           inc(n); 
         end;
   end;
 for i:=low(a) to high(a) do
   write(a[i],' '); // выводим массив
 readln();
end.

Задача:

Задача 2

Вывести на экран сумму N случайных чисел.

<?php
$number = 0;
for ($counter = 0; $counter < 5; $counter++) {
    $number = $number + rand(-21,35);
}    
    echo $number ;
?>

Задача 1

Вывести на экран N случайных чисел (каждое с новой строки) из диапазона [-21, 35]
ПРИМЕЧАНИЕ: подразумевается, что вы должны организовать цикл, который выполнится N раз и при этом в каждом своём витке выведет на экран случайное число.

<?php
for ($counter = 0; $counter < 5; $counter++) {
    $number = rand(-21,35);
    echo $number, "<br>";
}
?>

Задача 2

Задача 7 Урок 10.1

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i:integer;
begin
  for i := 1 to 100 do
    if((i mod 7) = 0) then
      write(i, ' ');
  readln();
end.