Регистрация
sna2003
17.09.2021 18:53
Информатика
Есть ответ 👍

Склавиатуры вводится натуральное число. найдите предпоследнюю цифру(составить программу в abc pascal )

169
254
Посмотреть ответы 2

Ответы на вопрос:

Настя2000о
Настя2000о
4,8(76 оценок)
Uses crt; var x: integer; s,s1: string; begin write('натуральное число  =  '); readln(x); s: =inttostr(x); s1: =copy(s,length(s)-1,1); writeln('предпоследняя цифра = ',s1); end.
brain09
brain09
4,4(81 оценок)
//pascalabc.net //версия 3.3, сборка 1634 begin var a: =readreal; write('s=',a*a,'; p=',4*a); end.

Популярно: Информатика