Легкая на паскале (я тупая) тема: цикличные алгоритмы. даны n чисел,найти кол-во кратных 2 и 5; найти кол-во кратных 3,но чтобы оно не было четным; все 2 условия в одной программе
Решение с массивом var a: array[1..1000] of longint; i, n, k1, k2: longint; begin k1 := 0; k2 := 0; read(n); for i := 1 to n do begin read(a[i]); if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1; if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1; end; writeln(k1, ' ', k2); end.
Решение без массива var x, i, n, k1, k2: longint; begin k1 := 0; k2 := 0; read(n); for i := 1 to n do begin read(x); if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1; if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1; end; writeln(k1, ' ', k2); end.
Программа ворд пад предназначенна для редактивирования текстов.WordPad — текстовый процессор, входящий в состав Microsoft Windows, начиная с Windows 95. Обладает бо́льшим набором инструментов, чем Блокнот, но не дотягивает до уровня полноценного текcтового процессора вроде Microsoft Word или OpenOffice.org Writer. WordPad представляет собой эволюционировавшую версию программы Windows Write из Windows 1.0.Поддерживает форматирование и печать текста, но не имеет ряда таких важных инструментов как таблицы и средств проверки орфографии
Задача 1. var a,b,c,x: integer; begin readln(x); a:= x mod 10; x:= x div 10; b:= x mod 10; x:= x div 10; c:= x; if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет'); end.
Задача 2. var a,b: integer; begin readln(a,b); If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln('да') else writeln('нет'); end.
Задача 3. var x: real; begin readln(x); if (x=<5) and (x>=1) then writeln('да') else writeln('нет'); end.
Задача 4. Справка: Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних. var x: integer; begin readln(x); for i:=1 to 3 do begin d:= x mod 10; x:= x div 10; s1:= s1+d end; for i:=1 to 3 do begin d:= x mod 10; x:= x div 10; s2:= s2+d end; if s1=s2 then writeln('да') else writeln('нет') end.
Задача 5. Справка: год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. var x: integer; begin readln(x); If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then writeln('да') else writeln('нет') end.
var a: array[1..1000] of longint;
i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1;
if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.
Решение без массива
var x, i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(x);
if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1;
if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.