Var a: integer;
begin
writeln('введите число ');
readln(a);
if a=1 then writeln('январь. 31 день');
if a=2 then writeln('февраль. 28 дней (29 в високосном году)');
if a=3 then writeln('март. 31 день');
if a=4 then writeln('апрель. 30 дней');
if a=5 then writeln('май. 31 день');
if a=6 then writeln('июнь. 30 дней');
if a=7 then writeln('июль. 31 день');
if a=8 then writeln('август. 31 день');
if a=9 then writeln('сентябрь. 30 дней');
if a=10 then writeln('октябрь. 31 день');
if a=11 then writeln('ноябрь. 30 дней')
if a=12 then writeln('декабрь 31 день')
end.
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
<span>Одновременно для всех слайдов можно изменять дизайн: шрифт, фон, цвета, визуальные эффекты при показе, масштаб и др., для чего? Для удобства...</span>
на 2 pin подключаем кнопку
на 3, 4, 5 pin подключаем светодиоды
а вот скетч
#include <Arduino.h>
#include <Wire.h>
#include <SoftwareSerial.h>
double angle_rad = PI/180.0;
double angle_deg = 180.0/PI;
double x;
void setup(){
pinMode(2,INPUT);
pinMode(3,OUTPUT);
pinMode(4,OUTPUT);
pinMode(5,OUTPUT);
}
void loop(){
if(!((x) > (3))){
if(((digitalRead(2))==(true))){
x += 1;
while(!(((digitalRead(2))==(false))))
{
_loop();
}
}
}else{
x = 0;
}
if((x) > (0)){
digitalWrite(3,1);
}else{
digitalWrite(3,0);
}
if((x) > (1)){
digitalWrite(4,1);
}else{
digitalWrite(4,0);
}
if((x) > (1)){
digitalWrite(5,1);
}else{
digitalWrite(5,0);
}
_loop();
}
void _delay(float seconds){
long endTime = millis() + seconds * 1000;
while(millis() < endTime)_loop();
}
void _loop(){
}