сервис вопросов и ответовПомогите решить хоть какие нибудь задачи из этих упражнений. СРОЧНО НАДО!!!! СПАСИБО ЗАРАНЕЕ)))
10-11 класс|
|
Прикрепленные изображения
Aza95
18 июля 2013 г., 14:10:10 (10 лет назад)
Mariaroma11
18 июля 2013 г., 15:32:04 (10 лет назад)
Program Zadacha1;
Const c = 'а';
Var s, n, f: String;
i: Integer;
Begin
WriteLn('Введите имя и фамилию:');
ReadLn(s);
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
WriteLn('Строка содержит символ "', c, '"');
Break;
End
Else If i = Length(s) Then
WriteLn('Строка не содержит символ "', c, '"');
For i := 1 To Length(s) Do
If s[i] = ' ' Then
Begin
n := Copy(s, 1, i - 1);
WriteLn('Имя: ', n);
f := Copy(s, i + 1, Length(s));
End;
Write(f, ' ');
WriteLn(n);
ReadLn;
End.
Ответить
Другие вопросы из категории
Элемент матрицы называется локальным минимумом, если
он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных
минимумов заданной матрицы размером 10 на 10.
Найти сумму модулей элементов, расположенных выше
главной диагонали.
на языке С
Помогите пожалуйста!!!
Составить блок-схему и написать
на VBA
функцию, вычисляющую
для одномерного массива
Помогите мне пожалуйста с программой..(В паскале) Опишите процедуру поиска наибольшего и наименьшего элемента массива. С помощью этой процедуры составить
программу, которая определяет совпадают ли наибольший и наименьший элементы двух массивов A[1..n], B[1..n].
Читайте также
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
Pascal.Помогите решать хотя бы некоторые!!!Очень нужно.
Задача 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);
Помогите решить пожалуйста, как решить не представляю, а сроки поджимают, информатичка съест:'( 16 задача у меня, там 3 задания. P.S.
там она говорит что надо решать в Excel.
ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ!!! Желательно с решением... Восемь школьников, оставшихся в классе на перемене, были вызваны к директору. Один из них
разбил окно в кабинете. На вопрос директора, кто это сделал, были получены ответы: Егор: «Разбил Андрей!». Света: «Вика разбила». Оля: «Разбила Света». Миша: «Это кто-то с улицы!». Надя: «Да, Оля права…». Коля: «Это либо Вика, либо Света!». Андрей: «Ни Вика, ни Света этого не делали». Вика: «Андрей не бил!». Кто разбил окно, если известно, что из этих восьми высказываний истинно ровно три?
Помогите решить задачу. Pascal
Дан массив
целых чисел К(15), найти и вывести на печать отрицательные элементы из
этого массива.
Вы находитесь на странице вопроса "Помогите решить хоть какие нибудь задачи из этих упражнений. СРОЧНО НАДО!!!! СПАСИБО ЗАРАНЕЕ)))", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.