сервис вопросов и ответовPascal.Помогите решать хотя бы некоторые!!!Очень нужно.
10-11 класс|
|
Задача 1. Ввести три вещественных числа: длины сторон треугольника. а) Напечатать существует ли треугольник с такими длинами сторон; б) Если треугольник существует, то напечатать тип треугольника: остроугольный,
прямоугольный или тупоугольный.
Задача 2. Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В
какую секунду впервые появится число, делящееся на 2009?
Задача 3. Текст состоит из слов, разделенных пробелом. Найти самое длинное слово. Если таких слов несколько, то напечатать последнее. Задача 4. Ввести натуральное число N. Это число записывается в виде суммы нескольких неубывающих натуральных слагаемых. Например, 5=1+4=2+3=1+1+3=1+1+1+2=1+1+1+1+1
Напечатать количество таких изложений (при n=5, ответ 5);
KateSosnovskaya
10 янв. 2014 г., 17:00:09 (10 лет назад)
Monikasubbotin
10 янв. 2014 г., 19:25:00 (10 лет назад)
Вторая задача:
Ловите решение. Программа с помощью цикла увеличивает секунды и само число, каждый раз проверяя, делится ли число на 2009 без остатка.
Ответ: на 1462 секунду.
Код:
var a, sec, c: integer;
begin
sec := 1; a := 1;
while true do begin
inc(sec, 1);
a := a + 11;
writeln('Секунда - ', sec, ' число - ', a);
if (a mod 2009 = 0) then break;
end;
writeln('Ответ: ', a);
end.
Третью решу и скину либо сюда, либо в личку.
Ответить
Другие вопросы из категории
Найти значение выражения:
1) 3 div 5 + 3 =
2) (-19+9) div -5=
3) 16 mod 6 / 2 div 1
Читайте также
Помогите решить задачу на паскале, очень нужно:
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
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.
Помогите решить, пожалуйста! Хотя бы некоторые задачи.
1. Найти сумму (произведение) элементов 1-й строки (столбца) массива Т (6,4).
2. Заполните матрицу, элементами которой является произведение номеров строк и столбцов соответствующих элементов.
3. Вычислить сумму и произведения элементов матрицы Z (4,6).
4. Вычислить сумму и произведение элементов матрицы А(5,5).
Язык программирования - Pascal.
Помогите с Pascal, пожалуйста. Завтра нужно домашку сдать, а я ничего не понимаю :(
Решите хотя бы одну, или две)
Вот задачи:
1. Заполнить одномерный массив, размерностью 15 по следующему правилу: на нечетном месте должен стоять элемент от 10 до 100, а на четном месте должен находиться нечетный элемент на том же промежутке.
2. Дан одномерный массив, заполненный целыми случайными числами. Определить, на сколько больше сумма четных элементов по сравнению с суммой элементов кратных 3.
3. Дан двумерный массив, размерностью 6х7. Определить, сумма каких элементов больше: 2-го столбца или 3-ей строки.
Здравствуйте, прошу помогите решить такое вот чудо.
Решить вроде бы нужно найти что за число вместо x.
Кто знает как правильнее прошу вашей помощи.
Чтобы просмотреть фото, кликните на него.
Вы находитесь на странице вопроса "Pascal.Помогите решать хотя бы некоторые!!!Очень нужно.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.