Написать программу на паскале абс ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’h’ или ’h’
Ответы
<html><head><title>Работа</title></head><body>
http://fotoham.ru/img/picture/May/15/33750e911b05cc6d1393262314c557d0/mini_2.jpg"align=left>
Ауди рс6.
Германия.Самый быстрый универсал в мире. Данное ихображения расположено слева , а текст выравнивается по левой границе. Эффект достигается без таблицы.</font><br></palign=left><br><br><p>http://avto-
russia.ru/autos/mazda/photo/mazda_6_1280x1024.jpg"width=500 height=500 hspace=10 vspace=10 align=left>
Мазда 6 . Япония.Изображения расположено слева , а текст выравнивается по центру .Эффект достигается без таблицы.
http://car-exotic.com/image/vaz-2106-foto-9.jpg"align=right>
6ка.Россия.Рисунок распооложен справа. И текст выравнивается по правой границе.Эффектдостигается без таблицы.
В Паскале имеется три вида стандартных циклов:
1) цикл с параметром (цикл for ... to ... do ...)
2) цикл с предусловием (цикл while ... do ...)
3) цикл с постусловием (цикл repeat ... until ...)
Программа с использованием цикла с параметром:
program z1;
var i:integer;
x,p:real;
begin
p:=1; {задаем начальное значение произведения}
for i:=1 to 10 do {указываем количество повторений}
begin
readln(x); {вводим очередное число х}
p:=p*x; {умножаем введенное число х к произведению р}
end;
writeln(p); {вывод результата}
end.
Программа с использованием цикла с предусловием:
program z1;
var i:integer;
x,p:real;
begin
p:=1; {задаем начальное значение произведения}
i:=1; {задаем начальное значение счетчика}
while i<=10 do {задаем условие повторения цикла: пока i<=10}
begin
readln(x); {вводим очередное число х}
p:=p*x; {умножаем введенное число х к произведению р}
i:=i+1; {увеличиваем счетчик i на единицу}
end;
writeln(p); {вывод результата}
end.
Программа с использованием цикла с постусловием:
program z1;
var i:integer;
x,p:real;
begin
p:=1; {задаем начальное значение произведения}
i:=1; {задаем начальное значение счетчика}
repeat {повторять все указанные действия}
readln(x); {вводим очередное число х}
p:=p*x; {умножаем введенное число х к произведению р}
i:=i+1; {увеличиваем счетчик i на единицу}
until i>10; {до тех пор, пока счетчик i не станет больше 10}
writeln(p); {вывод результата}
end.
1) цикл с параметром (цикл for ... to ... do ...)
2) цикл с предусловием (цикл while ... do ...)
3) цикл с постусловием (цикл repeat ... until ...)
Программа с использованием цикла с параметром:
program z1;
var i:integer;
x,p:real;
begin
p:=1; {задаем начальное значение произведения}
for i:=1 to 10 do {указываем количество повторений}
begin
readln(x); {вводим очередное число х}
p:=p*x; {умножаем введенное число х к произведению р}
end;
writeln(p); {вывод результата}
end.
Программа с использованием цикла с предусловием:
program z1;
var i:integer;
x,p:real;
begin
p:=1; {задаем начальное значение произведения}
i:=1; {задаем начальное значение счетчика}
while i<=10 do {задаем условие повторения цикла: пока i<=10}
begin
readln(x); {вводим очередное число х}
p:=p*x; {умножаем введенное число х к произведению р}
i:=i+1; {увеличиваем счетчик i на единицу}
end;
writeln(p); {вывод результата}
end.
Программа с использованием цикла с постусловием:
program z1;
var i:integer;
x,p:real;
begin
p:=1; {задаем начальное значение произведения}
i:=1; {задаем начальное значение счетчика}
repeat {повторять все указанные действия}
readln(x); {вводим очередное число х}
p:=p*x; {умножаем введенное число х к произведению р}
i:=i+1; {увеличиваем счетчик i на единицу}
until i>10; {до тех пор, пока счетчик i не станет больше 10}
writeln(p); {вывод результата}
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите формулу решения данной системы для Microsoft Excel
Автор: Chistova-Dmitrii1162
Чим характеризуються проекти різних галузей застосування?
Автор: smirnovaL1286
Разработайте переборный алгоритм поиска всех аддитив-ных цепочек для конкретного значения n 100.
Автор: natalia-shelkovich
с контрольной работой по информатике)
Автор: Guru-tailor
Графы в информатике решите, файл закреплен
Автор: Альберт Татьяна
c:char;
fc,sc:integer;
begin
while c <> '.' do
begin
read(c);
if c = 'H' then
inc(fc);
if c = 'h' then
inc(sc);
end;
if fc > sc then
writeln('H больше');
if fc < sc then
writeln('h больше');
if fc = sc then
writeln('Одинаково');
end.