дано целое число в диапазоне 10-99.вывести строку название цифры на которую заканчивается данное число на русском языке(0-ноль.1-один.....)матлаб
10-11 класс
|
program abc;
var a,b:integer;
begin
readln(a);
b:=a mod 10 ;
if(b=0) then Writeln('Ноль') else
if(b=1) then Writeln('Один') else
if(b=2) then Writeln('Два') else
if(b=3) then Writeln('Три') else
if(b=4) then Writeln('Четыре') else
if(b=5) then Writeln('Пять') else
if(b=6) then Writeln('Шесть') else
if(b=7) then Writeln('Семь') else
if(b=8) then Writeln('Восемь') else
Writeln('Девять');
end.
Другие вопросы из категории
Иванов,несет 5 бит информации. Сколько в вашем классе учащихся? 1)15 2)25 3)32? 3.Алфавит содержит 64 символа. Каков информационный вес одного символа? 4.Сообщение написанное буквами из 32-символьного алфамита содержит 15 символов.Какой объем информации оно несет? 5.Сообщение занимает 4 страницы по 27 строк.В каждой строке записано по 50 символов.Какой объем информации в байтах содержит сообщение
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.
содержала путь в формате ОС Unix, то есть заменить каждый символ "\" на символ "/".Путь DOS:
Читайте также
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
которых больше 5 и меньше 15
двузначное число, образованное парой цифр, в которую входит k-я цифра;
Примечание: величины строкового типа не использовать.
p.s объясните само задание, пожалуйста. Решение есть на яндексе.