Var a,b,p:integer; d: real;
begin
readln(a,b);
p:=2*a+2*b;
d:=sqrt(sqr(a)+sqr(b));
writeln('периметр- ',p,' ' ,' диагональ- ',d)
<span>end.</span>
Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк
Хах, это же задание с Олимпиады по информатике. Второй этап. Высшая лига. 2015.
Тоже сижу, решаю)
Вот алгоритм: 2654713
поровоз вроде!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!