Паскаль с (не линейный) нужен код. скорость первого автомобиля v1 км/ч, второго — v2 км/ч, расстояние между ними s км. определить расстояние между ними через t часов, если автомобили первоначально движутся навстречу друг другу.

Function check(num : integer) : boolean; var   sum : integer; begin   while num > 0 do   begin     sum : = sum + num mod 10;     num : = num div 10;     end;       result : = (sum > = 20) and (sum < = 30); end; var   i, len : integer;   sum : real; begin   sum : = 0;   len : = 0;   for i : = 10000 to 99999 do   begin     if check (i) then       begin       len : = len + 1;       sum : = sum + i;       end;     end;       writeln('среднее арифметическое: ', sum / len); end.

1. если имеется в виду язык pascal, то получим следующее: var: a; //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) begin   readln(a);   b: =a+a;   writeln (b); end. program50.pas(5) : неизвестное имя 'b' 2. попробуем такой вариант на python a =int(b = a+aprint(b) при вводе а получим на выходе 10 получается, что в pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для pascalabc.net. первый код можно переписать так, и он будет работать: var: a; //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) begin   readln(a);   var b: =a+a;   writeln (b); end. рузультат при введенном значении 5 равен 10