Решить на языке паскаль!!!!!
5-9 класс
|
Дано пятизначное число
1)зачеркнуть последнюю цифру
2)зачеркнуть первые 2 цифры
3)зачеркнуть предпоследнюю цифру
4)зачеркнуть три последние цифры
ЧИСЛО 53714
пОМОГИТЕ ПЛИЗЗЗ
1) program z1; uses crt; var a: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999); a:=a div 10; Writeln (a); Readkey; End. 2) program z2; uses crt; var a: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999); a:=a mod 1000; Writeln (a); Readkey; End. 3) program z3; uses crt; var a, b: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999); b:=a mod 10; a:=a div 100; Writeln (a, b); Readkey; End. 4) program z4; uses crt; var a: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999); a:=a div 1000; Writeln (a); Readkey; End.
Другие вопросы из категории
Переменные а и b описаны в программе как целочисленные. Определите значение переменной а после выполнения следующего фрагмента программы:
a:=374;
b=div(a,100);
a:=mod(a+b,10);
a:=a*b
где dim и mod функции, вычисляющие результат деления нацело первого аргумента на второй и остаток от деления соответственно.
В ответе укажите одно число - значение переменной а
Желательно с решением!
Нужно написать программу,где машина должна будет тебе выдать название месяца, сколько дней в этом месяце и какой это день недели.
Решить нужно в Pascal
частью.)
Обведи рисунок, на котором есть все перечисленные части.
СЛОВА:
КОЛЕСО----------------------------------
ОКНО--------------------------------------
ХВОСТ------------------------------------
КРЫЛО-----------------------------------
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
положили их в банк. Банк начисляет 18% в первый месяц, а каждый следующий - тоже 22%, но уже с общей суммы с учётом начисленных процентов. Сколько денег будет в банке на вашем счету через год? (Нестабильностью нашей экономической системы пренебрегаем)
Дан фрагмент программы, который решает задачу поиска номера последней минимальной цифры в записи десятичного целого числа (считается, что цифры в числе пронумерованы справа налево) и выводит ее на экран. Определите, какой оператор необходимо вставить вместо троеточия ( . . . ), чтобы правильный результат выдавался для любого целого числа N. Все используемые переменные имеют целый тип данных. Ответ записывайте без пробелов.
на языке Паскаль
readln(N);
MC:=9; I:=0; K:=1; N:=abs(N);
while N< >0 do
begin
С:=N mod 10; N:=N div 10;
I:=I+1;
if ... then
begin
MC:=C; K:=I;
end;
end;
writeln(K); .
10 минут осталось, подалуйста.