Дано целое неотрицательное число n, определите число десятков в нем (предпоследнюю цифру числа). если предпосленей цифры нет, то можно считать, что число десятков равно нулю. (напишите программу для решения в pascal.abc)
Написали бы язык программирования. Вот на java. import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader;
public class znanie { public static void main(String[] args) throws IOException { BufferedReader reader=new BufferedReader(new InputStreamReader(System.in)); long A=Long.parseLong(reader.readLine()); long B=Long.parseLong(reader.readLine()); if((A<0)||(B<0)){ System.exit(0); } long sum=0; for (long i = A; i <= B; i++) { if((i%5==0)||(i%13==0)){ sum=sum+i; } } System.out.println(sum); } }
Написали бы язык программирования. Вот на java. import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader;
public class znanie { public static void main(String[] args) throws IOException { BufferedReader reader=new BufferedReader(new InputStreamReader(System.in)); long A=Long.parseLong(reader.readLine()); long B=Long.parseLong(reader.readLine()); if((A<0)||(B<0)){ System.exit(0); } long sum=0; for (long i = A; i <= B; i++) { if((i%5==0)||(i%13==0)){ sum=sum+i; } } System.out.println(sum); } }
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.