Написать программу Паскаль -перенести первое число в конец Число трехзначное Помогите:)

Знания

Информатика

1 ответ:

AnnettaVor [75]4 года назад

0 0

Прошу:)

var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
b := d mod 100 div 10;
c := d mod 10;
writeln(b, c, a);
end.

можно ещё сократить:
var a, b, c, d: integer;
begin
readln(d);
writeln(d mod 100 div 10, d mod 10, d div 100);
end.

или даже:
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
writeln(d - a * 100, a);
end.

Читайте также

Дана строка, состоящая из русских слов, разделенных пробелом. Определить слово, с наибольшим количеством гласных букв, ребят пом

Людмила1702 [87]

Var
s,w:string;
i,j,n,p,k,gmax:integer;
fBreak:boolean; { флажок для прерывания циклов }
begin
Writeln('Введите текст, разделяя слова пробелами');
Readln(s);
s:=LowerCase(s);
n:=Length(s); p:=1; fBreak:=False; gmax:=0;
while (not Fbreak) do { перебор всех символов в строке }
begin
 {ищем первый непробельный символ - начало слова }
 fBreak:=False;
 while ((p<=n) and (not fBreak)) do
 if (p=n) or (s[p]<>' ') then fBreak:=True
 else Inc(p);
 { ищем первый пробельный символ - конец слова }
 if p<n then begin
 i:=p; Inc(p); fBreak:=False;
 while (p<=n) and (not fBreak) do begin
 if (p=n) or (s[p]=' ') then fBreak:=True
 else Inc(p)
 end;
 { теперь слово находится между позициями i и p }
 k:=0;
 for j:=i to p do
 if s[j] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
 if gmax<k then begin gmax:=k; w:=Copy(s,i,p-i) end;
 i:=p; p:=p+1
 end
 else p:=p+1;
 fBreak:=(p>n)
end;
if gmax>0 then Writeln('В слове "',w,'" максимум гласных, равный ',gmax)
else Writeln('Во введенной строке гласных букв не найдено')
end.

Тестовое решение:
Введите текст, разделяя слова пробелами
В слове ДЛИННОШЕЕЕ три буквы е подряд!
В слове "длинношеее" максимум гласных, равный 5

0 0

4 года назад

На питоне. Напишите программу которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисля

Keriger [712]

import random as r #импортируем библиотеку рандом для создания рандомных чисел

N=10 #кол-во чисел которые сгенерируем

array=[r.randint(1,20) for i in range(N)] #генерация чисел

print(*array,sep=',') #вывод чисел через запятую

print(sum(array)/len(array))#среднее арифметическое число

0 0

4 года назад

Сколько дюймов в 24 точках скажите пожалуйста плиз и сколько см в 24 (pt)

Сафиначка [50]

Диагонали экранов телевизоров измеряются в дюймах. Лично для меня эти дюймы это темный лес, совершенно не представляю какого размера экран. Вот что выяснила об этом. Если считать, что в 1 дюйме 2,54 см, то в 24-х дюймах примерно 61 см, в 28-ми дюймах примерно 71 см, а в 32-х соответственно 81,3 см.

0 0

4 года назад

1)вычислите объём черно-белого (без градаций серого) изображения в байтах, если одна клетка на рисунке соответствует пикселю2) д

luserboys [65]

1) Нужен сам рисунок

2) 64 * 64 = 4096 пикселей

512 байт = 4096 бит

4096 / 4096 = 1 бит / пиксель

2¹ = 2

Ответ: 2 цвета.

3) 128 * 128 = 16384 пикселей

4 КБайта = 4096 байт = 32768 бит

32768 / 16384 = 2 бита / пиксель

2² = 4

Ответ: 4

4) 256 = 2⁸, значит, 8 бит (1 байт) / точка

Ответ: 2400 точек.

0 0

4 года назад

Что не правильно в программе Задача такова: написать программу, которая по заданному числу выдает название месяца. Заранее спаси

Madara

//Вы принимаете введенный символ в char, а в switch пытаетесь использовать двузначные числа (10, 11, 12). Даже если вы ввели "11", то в Char приходит только первый введенный символ, т.е "1", и выводится соответственно "январь". Чтобы использовать двузначные числа, нужно использовать переменную с другим типом данных, например int или string.

//Также я ввел поддержку русского языка в консоль, у меня во всяком случае консоль по умолчанию не поддерживает русские символы

//Еще я убрал переменную С, так как не понял, зачем вы ее вообще ввели (она нигде не используется)

#include <iostream>
#include <locale>

using namespace std;

int main()
{
setlocale(LC_ALL, "Russian");

string b;
int a;

cin » a;

switch (a)
{
case 1: b = "январь"; break;
case 2: b = "февраль"; break;
case 3: b = "март"; break;
case 4: b = "апрель"; break;
case 5: b = "май"; break;
case 6: b = "июнь"; break;
case 7: b = "июль"; break;
case 8: b = "август"; break;
case 9: b = "сентябрь"; break;
case 10: b = "октябрь"; break;
case 11: b = "ноябрь"; break;
case 12: b = "декабрь"; break;
default: b = "Ошибка!"; break;
}

cout « endl « b « endl;
return 0;
}

0 0

1 год назад