Program chik3; const n=50; var a,b:array[1..30]of real; i:integer; p:real; begin p:=1; for i:=1 to n do begin read(a[i]); if(a[i]<=2)then p:=p*a[i]; end; writeln(p); end.
// PascalABC.NET 3.0, сборка 1111 const alpha=['a'..'z']; digits=['0'..'9']; var na,nd,i:integer; s:string; begin na:=0; nd:=0; Write('Введите текст: '); Readln(s); for i:=1 to Length(s) do if s[i] in alpha then Inc(na) else if s[i] in digits then Inc(nd); if na>nd then Writeln('В тексте больше букв') else if na<nd then Writeln('В тексте больше цифр') else Writeln('В тексте букв и цифр поровну') end.
Тестовое решение: Введите текст: the equation 3.546x^2+4.18x-4.1=0 В тексте больше букв
1. Рабочий стол – область экрана, на которой отображаются окна (в том числе диалоговые), значки и меню.2. Окно – ограниченная (прямоугольная) часть экрана, предназначенная для выполнения одной программы или отдельной ее функции.3. Значок и ярлык (пиктограмма) – ссылка на любой элемент, доступный на компьютере или в сети, такой как программа, файл, папка, диск, веб-страница , принтер или другой компьютер.4. Кнопка – элемент, который после воздействия на него (например, выполнения пользователем щелчка кнопкой мыши) запускает некоторую последовательность действий.5. Панель – группы логически взаимосвязанных значков, элементов управления и индикации состояния операционной системы или выполняющейся программы.6. Меню – набор команд, действий, режимов, установок и т.д.7. Папка – элемент , предназначенный для группировки файлов по какому-либо признаку.8. Приложение – прикладная программа.9. Документ – самостоятельный файл, созданный в приложении и получивший при сохранении имя, с которого он будет использоваться в дальнейшем.
const n=50;
var a,b:array[1..30]of real;
i:integer;
p:real;
begin
p:=1;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<=2)then p:=p*a[i];
end;
writeln(p);
end.